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The  purpose*  o  f  tin* 'Ferea  rch  are  to  develop  a  simplified  fallout  c  mputational  f»v»tcB  for  use  In  damage-assessment  studies  shore  very 
lari*  numbers  of  weapons  are  used,  and  to  develop  a  statistical  procedure  io  rwlate  wind  variability  to  fallout  pattern  variability.  The 
baatc  re<iul  retiente  or  the  simp! tiled  fallout  computational  lyitvs  are  th-t  it  simulate  UKLF1C  fallout  exposure  rate  contours  and  OKU' 1C  ac¬ 
cumulated  exposure  doses  anywhere  within  the  areas  of  significant  fallout  for  Identical  input  winds  and  *espon  yield,  end  that  the  computer 
tlm*  for  exercising  the  simplified  fsllout  computational  system  t>e  minimal.  The  slnd  variability  to  be  considered  w*>  limited  t..  the  sta- 
tlattcal  probr.blllty  of  observing  a  giv  n  vertical  wind  profile  over  a  given  geographical  location  of  any  Instant  in  time. 

Because  the  original  simplified  vallout  computational  system  that  «as  developed,  Simplified  Estimation  of  Exposure  to  Hadlutmn  O.l.EH) 
could  not  simulate  UELFff  output  for  severely  sheared  winds,  a  new  modi  1,  SEER  1 1,  was  developed  with  this  capability.  The  computer  compu¬ 
tation  time  ~equtred  by  AKEK  if  on  the  CDC  6400  computer  is  approximately  3  seconds  for  seap  on  yields  In  the  low  kljoton  range  nnd  6  second! 
for  weapon  yields  in  the  iCJ  megaton  range  per  1200  grid  points,  which  Is  approximately  one— fiftieth  to  one  f>ne-hund red th  of  the  ocnput.M .ion 
time  required  by  DELFIC.  The  KIRN  l)  output  simulates  UCLHC  output  reasonably  well  over  a  wide  range  of  yields  (1  kilotort  to  30  mcg.i  u.i.w) , 
snd  diverse  wind  atructures. 

The  procedure  for  atat  i  at  its  1  iy  i  elating  wind  variability  tr»  t.illout  pattern  variability  .tppeara  to  be  successful.  The  procedure  was 
tasted  with  wind  data  obtained  for  rear  I  a.,  Illinois,  i.m.  wind  directions  *i»vi  speeds  at  various  altitudes  measured  four  times  dolly  over 
Peoria  for  several  years.  A  result  of  major  importance  from  this  test  of  the  procedure  is  that  statistical  features  of  fallout  p.ittern* 

C«u  He  predicted  reasonably  well  from  patterns  produced  bv  the  mean  and  standard  deviation  wind  parameter*.  Another  important  result  1* 
that  variability  of  angular  displacement  In  the  wind  (wind  shear)  appeurs  to  be  responsible  for  the  greeter  part  of  variability  in  the  pat¬ 
tern,  whereas  variability  .3  wind  -peed  is  less  effective. 
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I  INTRODUCTION 


A.  Background 

The  Department  of  Defense  Land  Fallout  Prediction  System  is  a  re¬ 
search  tool  designed  to  utilize  a  Modular  Computer  Program  called  DELFIC 
(for  Defense  Land  Fallout  Interpretive  Code),  to  implement  a  highly 
sophisticated  and  physical  fallout  model,1  As  a  research  tool,  DELFIC 
typically  requires  a  relatively  large  amount  of  computer  time  and  yields 
a  great  variety  of  output  data.  Much  of  the  output  is  net  needed  for 
damage  assessment,  and  the  long  computer  time  is  inconsistent  with  the 
necessity  for  generating  a  large  number  of  fallout  patterns  to  assess 
the  damage  from  a  strategic  nuclear  attack.  A  derivative  of  the  DELFIC 
program  called  PROFET  (for  Prediction  of  Fallout  at  Early  Times)  has 
been  developed  to  provide  an  operational  capability  to  make  rapid-access 
fallout  predictions  with  a  minimal  amount  of  input  data  and  an  easily 
interpretable  output,8  It  simplifies  the  input  requirements  for  the 
program,  replaces  the  less-sensitive  portions  of  the  program  with  empiri¬ 
cal  formulas,  and  reduces  the  output  to  a  few  essential  parameters.  How¬ 
ever,  it  remains  principally  a  physical  model,  and  its  running  time  is 
still  suitable  for  handling  only  a  few  detonations  in  a  reasonable  period. 
A  need  exists  for  a  simplified  model  with  much  reduced  computing  time 
and  restricted  input  and  output  requirements  for  large-scale  damage- 
assessment  studies.  To  th-**  •„  ;d  research  was  initiated  and  the  SEER 
model  was  developed.3 

The  development  criteria  for  SEER  were  that  it  simulate  DELFIC  out¬ 
put  and  that  it  produce  the  simulated  output  at  a  fraction  of  the 


* 

References  are  listed  at  the  end  of  the  report. 
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computer  time  needed  for  DELFIC.  The  computerised  SEER  program  requires 
about  2.5  seconds  of  CDC  6400  computer  execution  time  for  each  1200-grid- 
point  run.  Preliminary  exposure  rate  comparisons  of  SEER  output  with 
DELFIC  output  indicated  fair  agreement  of  exposure  rate  contour  shape, 
size,  and  pattern  directionality  for  moderately  sheared  winds  for  yields 
between  one  kiloton  and  10  megatons.  Additional  equations  were  formulated 
to  improve  the  accuracy  of  SEER,  but  these  were  not  integrated  into 
the  original  SEER,  nor  were  they  tested. 

The  problems  remaining  at  the  termination  of  the  above  SEER  develop¬ 
ment  research  were: 

(1)  Uncertainty  as  to  whether  the  developed  simplified  system 
would  match  DELFIC  output  adequately  under  all  reasonable  in¬ 
puts  to  DELFIC  (e.g.,  wind  structure  and  atmosphere). 

(2)  Uncertainty  as  to  what  criteria  should  be  used  for  measuring 
the  adequacy  of  match  (e.g.,  H  +  1  exposure  rate  at  a  point, 
area  of  exposure  dose  contours,  intensity-area  integral,  or 
fraction  down). 

(3)  Uncertainty  as  to  whether  or  not  statistical  wind  data  can  be 
used  to  predict  fallout  effects. 

These  remaining  problems  required  resolution  before  the  simplified 
system  could  be  recommended  without  reservations  to  predict  fallout  ef¬ 
fects  in  damage  assessment  •.Indies. 

B.  Objectives 

The  objectives  of  this  research  were  to  formulate  criteria  and  con¬ 
duct  validation  tests  of  the  developed  simplified  fallout  computational 
system  with  respect  to  DELFIC  under  a  wide  variety  of  conditions,  and 
to  make  the  necessary  corrections  or  improvements  on  the  simplified 
computational  system  where  validation  is  inadequate  so  as  to  satisfy 
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the  validation  criteria.  The  SEER  II  'omputational  model  will  incorpor¬ 
ate  these  corrections  and  improvements. 

An  additional  objective  is  to  develop  a  procedure  to  incorporate 
statistical  variabilities  of  wind  st  .natures  into  expected  fallout  pat¬ 
terns  with  measures  of  variations. 

C .  Scope 

The  long-term  goal  of  the  research  program  that  includes  the  re¬ 
search  effort  reported  here  is  to  implement  a  better  fallout  model  for 
damage  assessment.  It  is  believed  that  models  in  current  use  cannot 
adequately  predict  fallout  for  the  likely  range  of  yield  and  wind  condi¬ 
tions  under  which  an  attack  could  occur,  and  that  the  operational  conse- 

* 

quences  of  this  inadequacy  are  significant.  The  new  model  must  1)  pro¬ 
duce  fallout  information  at  given  resource  location  from  a  large  num¬ 
ber  of  detonations  at  given  target  locations,  and  1 ,  .o  so  without  sub¬ 
stantially  increasing  the  computer  costs  associated  with  the  model.  As 
an  inte  mediate  objective,  a  model  capable  of  predicting  fallout  on  a 
specified  resource  point  from  a  single  specified  detonation  must  be  de¬ 
veloped.  This  objective  has  been  substantially  met  by  the  SEER  II  model, 
with  the  following  limitations  in  scope: 

•  It  is  a  single  shot  model. 

•  Its  range  of  validity  is  1  KT  to  30  MT. 

•  It  does  not  currently  provide  for  fission  fractions 
less  than  unity. 

•  It  does  not  currently  provide  for  height  or  depth  of 
burst  corrections. 

•  It  assumes  that  a  single  vertical  wind  profile  obtains 
for  the  entire  time  and  spatial  extent  of  significant 
fallout . 

*  it 

This  contention  is  being  investigated  under  a  contract  entitled  Demon¬ 
stration  of  the  Utility  of  the  SEER  Fallout  Model." 


•  It  Is  calibrated  to  DELFIC  fallout  patterns  with  the 

following  data  inputs 

-  Siliceous  soil  substrate 

-  U.S.  standard  atmosphere  30°  North,  January 

-  Log-normal  particle  size  distribution  with  mass 
mean  130  microns. 

-  0-235  fission  spectrum  or  U-238  8  MeV,  depending 
on  yield. 

Most  of  these  limitations  will  be  alleviated  during  the  Demonstra¬ 
tion  phase  currently  under  way.  In  particular,  SEER  II  will  be  incor¬ 
porated  in  a  system  that  provides  for  addition  of  the  fallout  at  a  re¬ 
source  point  from  all  the  detonations  affecting  it,  and  the  prediction 
will  take  into  account  spatial  variation  of  wind  fields  for  large-yield 
weapons.  Providing  for  fission  fraction  and  height  of  burst  corrections 
should  require  a  minimal  effort.  Although  the  validity  of  the  model  for 
very  low  or  very  high  yields  is  certainly  in  doubt,  provision  will  be 
made  to  extrapolate  the  results  to  all  reasonable  values  of  yield. 

The  validity  of  the  research  results  reported  here  is  also  subject 
to  the  limitation  that  no  standardized  technique  has  been  established 
for  judging  the  agreement  between  two  fallout  patterns.  Therefore,  sub¬ 
jective  judgments  on  their  similarities  in  directionality,  shape,  and 
size  have  been  used  to  assess  the  success  of  SEER  II  in  simulating  DELFIC. 

Finally,  the  study  of  statistical  wind  variability  we.-.  limited  to 
the  question  of  what  the  historical  variability  of  the  instantaneous 
vertical  wind  profile  over  a  particular  point  had  on  the  statistical 
variability  of  fallout  patterns  generated  from  these  instantaneous  winds. 
The  question  of  correlations  between  winds  at  different  locations  and 
different  times  is  being  investigated  elsewhere. 
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II  FALLOUT  MODELING 


A.  Problem  Discussion 

Depending  on  the  geographical  location  and  the  time  of  year,  the 
wind  structure  can  vary  greatly  with  altitude;  both  wind  direction  and 
wind  velocity  are  subject  to  large  changes.  Fallout  particles  falling 
from  various  cloud  altitudes  and  subjected  to  shearing  winds  are  moved 
about  at  varying  velocities  and  directions  during  their  descent.  The 
resulting  deposition  patterns  are  irregular  and  difficult  to  reproduce 
by  the  use  of  simplified  empirical  equations.  Normalized  wind  inputs 
are  too  simple  to  adequately  characterize  the  actual  winds.  For  this 
reason, and  because  good  simulation  of  DELFIC  output  for  all  naturally 
occurring  wind  structures  was  deemed  necessary  for  the  simplified  fallout 
model  to  be  generally  useful,  it  was  decided  that  SEER  should  be  modified 
to  handle  complex  as  well  as  simple  wind  structures. 

Typical  of  the  wind  structures  for  which  the  modified  model  is  re¬ 
quired  to  accept  and  produce  good  simulation  of  DELFIC  output  are  the 
summer  winds  over  Fort  Worth,  Texas,  and  Lake  Charles,  Louisiana.4 
Representations  of  the  winds  that  may  be  expected  at  these  two  locations 
in  the  summer  are  shown  in  Figures  1  and  2, where  the  wind  vectors  (di¬ 
rections  and  velocities)  at  altitude  intervals  of  1000  meters  are  placed 
end  to  end.  A  straight  line  drawn  from  the  zero  point  to  any  altitude 
point  on  the  curve  is  an  approximation  of  the  fallout  pattern  direction 
for  particles  falling  irom  that  altitude,  with  the  larger  particles 
landing  closer  to  the  zero  point  and  the  smaller  particles  landing 
farther  away.  The  general  shapes  of  the  fallout  pattern  limits  (e.g., 
the  1  r/hr  exposure  rates)  resulting  from  these  winds, for  a  weapon  yield 
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FIGURE  t 


fort  worth  summer  wind 
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that  will  produce  a  maximum  cloud  height  of  20  kilometers,  are  shown  in 
* 

Figures  3  and  4.  As  can  be  seen,  the  shapes  are  irregular  (especially 
with  respect  to  the  relative  location  of  ground  zero)  rath6r  than  sym¬ 
metrical  about  a  hotline  axis.  The  higher  exposure  rate  contours  are 
also  expected  to  be  irregular.  The  reproduction  of  these  irregular  con¬ 
tours  therefore  is  beyond  the  capabilities  of  the  simplified  SEER  model. 

The  use  of  mock  winds  for  input  into  fallout  models  can  serve  two 
purposes:  1)  it  is  a  means  of  providing  information  on  the  manner  in 
which  selected  inputs  affect  the  model's  output,  and  2)  it  is  a  means 
of  generating  pattern  extremes  for  model  output  comparisons.  For  the 
mock  winds  shown  in  Figure  5,  SEER  produces  the  fallout  contour  pattern 
shown  in  Figure  6  while  DELFIC  produces  the  pattern  shown  in  Figure  7. 
The  SEER  contours  do  not  adequately  simulate  the  DELFIC  contours  in 
shape  or  size,  although  the  bearing  is  similar.  The  mock  wind  is  simple 
in  structure  (only  one  direction  of  rotation)  but  is  highly  sheared. 

Its  total  change  of  direction  is  225°. 


B.  Method  of  Approach 

In  order  to  obtain  a  closer  approximation  of  DELFIC  fallout  expo¬ 
sure  rate  contours  for  any  wind  structure,  it  was  necessary  to  expand 
the  modeling  of  the  physical  characteristics  of  particle  transport.  The 
following  major  tasks  were  carried  out: 

(1)  Improving  the  accuracy  of  those  empirical  equations  previ¬ 
ously  developed  which  were  retained  for  SEER  II. 

(2)  Including  particle  transport  modeling. 

(3)  Formulating  new  empirical  equations  that  were  necessary 
for  the  new  model. 

♦ 

See  also  Figure  20  and  Table  C-l. 
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Vectors  lengths  are  average  velocities 
for  each  b  kilomete.-s  of  altitude. 


(4)  Translating  the  model  into  computer  programs  and  sub¬ 
routines  . 

(5)  Analyzing  computer  output  and  adjusting  the  model  and 

the  associated  programming. 

C .  Model  Development 

1.  Empirical  Equations  Derived  from  DELFIC 

The  modeling  starting  point  for  SEER  II  is  the  DELFIC  cloud 
at  stabilization.  The  important  parameters  at  cloud  stabilization  are: 

a)  the  cloud  stabilization  times,  (t  ) 

s 

b)  the  cloud  top  altitude,  (A^) 

c)  the  cloud  base  altitude,  (A  ) 

b 

d)  the  cloud  radius,  (r  ) 

min 

These  values  can  be  directly  obtained  for  various  yields  from 
the  DELFIC  cloud  history  table.  Empirical  equations  written  to  approxi¬ 
mate  these  parameters  as  a  function  of  yield  are  included  in  Appendix  B 
along  with  figures  demonstrating  their  accuracy.  At  the  cloud  stabili¬ 
zation  time,  the  cloud  radius  is  at  a  reference  minimum.  From  the  mini¬ 
mum  radius,  the  cloud  expands  radially,  first  at  one  rate  and  then  at 
another  rate,  until  the  cloud  radial  expansion  termination  time  is 
reached.  Since  SEER  II  is  a  cloud  disk  transp  c  and  deposition  model, 
the  rate  of  cloud  radial  expansion  is  an  important  modeling  parameter. 
The  rate  of  cloud  radial  expansion  with  time,  the  expansion  termination 
time,  the  maximum  radius,  and  the  deposition  radius  (which  may  be  less 
than  or  equal  to  the  maximum)  are  derived  from  analyses  of  DELFIC  con¬ 
stant  wind  fallout  patterns,  DELFIC  cloud  stabilization  parameters,  and 
particle  fall  velocities.  Empirical  equations  written  to  approximate 
these  parameters  as  functions  of  yield  are  also  included  in  Appendix  B. 
Since  there  is  no  direct  DELFIC  printout  of  these  parameters,  no 
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comparison  of  accuracy  is  made,  and  the  adequacy  of  the  approximations 
can  be  judged  only  as  they  affect  the  final  results. 

2.  Analytical  Theory 

The  total  potential  fallout  deposition  (intensity  integrated 
over  area)  from  a  weapon  of  fission  yield  W  can  be  expressed  by 

I  =  KW  O.) 

k 

where  K  depends  01  the  weapon  type  k  and  W  is  in  kilotons.  For  example, 

Miller6  gives  a  K  value  of  3610  r/hr  at  1  hour  per  kiloton  per  square 

mile  for  fission  of  U-238  by  8  MeV  neutrons,  and  this  converts  to  9350 

r/hr  at  1  hour  per  kiloton  per  square  kilometer.  If  f  is  the  fraction 

c 

of  the  fallout  falling  locally  from  the  cloud,  then 

IC  =  f  KW  (2) 

k  c 

is  the  deposition  of  cloud  fallout. 

If  the  fallout  cloud  is  separated  into  L  equal  layers  of  equal 
total  fallout  radioactivity,  then  for  each  layer,  i, 

IC  =  f  KW/ L  (3) 

k£  c 

is  the  fallout  deposition  from  that  layer.  If  the  particles  in  each 
layer  are  separated  into  particle  size  groups,  and  if  each  particle  size 
group,  g,  represents  a  fraction  of  the  total  activity  of  all  particle 
sizes,  then  for  each  particle  size  group  in  each  layer, 

1°  =  f  f  KW/L  (4) 

k£g  c  g 

where  f  is  the  fraction  of  the  activity  in  size  group  g. 
g 

For  each  layer  of  cloud  deposition,  the  area  .overed  by  fall¬ 
out  is  approximated  by 
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(5) 


A 

j t 


2r  (d 
d  n 


V 


where  d  is  the  deposition  distance  of  the  largest  particles,  and  where 
n 

r,  is  the  radius  of  the  cloud  at  the  time  of  deposition.  The  increment 
d 

in  area  of  deposition  between  adjacent  particle  sizes  g  and  g+1  is 


= 

a  g 


(6) 


where  Ad  is  the  increment  in  deposition  distance, 
g 

The  fallout  intensity  (exposure  rate)  is  inversely  proportional 

to  M  .  Thus,  for  each  layer  of  deposition,  the  average  exposure  rate 

fg 

within  each  aA  is 

£g 


I 

a 


ic  /aa 

kfg  lg 


=  f  f  KW/2Lr  Ad 
eg  d  g 


(7) 


where  the  deposition  distance  for  particle  group  g  is 


d 

g 


(t 

s 


+  t 


(8) 


and  where  is  the  effective  fallout  wind  velocity  from  the  altitude  of 

cloud  layer  SL  to  the  ground  surface,  t  is  the  time  of  deposition,  t  is 

d  s 

the  elapsed  time  from  the  time  of  detonation  to  the  time  of  cloud  cap 

stabilization,  and  t  is  the  time  of  fall  for  particle  size  g. 

*g 

The  particle  falling  times  depend  on  the  particle  size  and  its 
altitude  of  origin.  Instead  of  providing  approximating  equations  to  cal¬ 
culate  the  particle  falling  times  for  various  sizes  and  from  various 
altitudes,  falling  times  were  precalculated  for  specific  particle  size 
groupings  and  stored  in  the  program. 


If  the  cloud  is  divided  into  L  equally  thick  layers,  each 

layer  will  have  a  thickness  of  (A  -  A  )/L,  and  the  midpoint  altitude  of 

t  b 

each  layer  is 
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A  =  A  + 
l  b 


(21  -  1)  (A  -  A  ) 
_ t _ b_ 

2L 


(9) 


where  i  is  the  number  of  the  layer  counting  from  the  bottom  layer  (£  =  1) 
to  the  top  layer  (l  =  L) .  The  cloud  is  assumed  to  be  uniform  along  any 
vertical  section. 


The  direction  of  fallout  deposition,  with  respect  to  the  weapon 
burst  point,  of  fallout  particles  from  each  cloud  layer  is  determined  by 
the  effective  fallout  wind  direction  for  the  altitude  of  each  cloud  layer. 
The  effective  fallout  wind  direction  for  an  altitude  is  the  net  result 
of  the  directional  transport  of  particles  falling  from  that  altitude. 

From  each  cloud  layer,  the  fallout  will  land  in  the  direction  of  a  line 
extending  radially  from  the  ground  burst  point,  with  the  larger  particles 
landing  closer  to  the  burst  point  and  the  smaller  particles  landing  fur¬ 
ther  away.  The  exposure  r>.  e  of  the  deposited  fallout  from  each  layer 
not  only  varies  with  distance  in  the  effective  fallout  layer  direction, 
but  also  varies  with  distance,  r  ,  perpendicular  to  the  effective  fall¬ 
out  layer  direction.  The  exposure  rate  is  at  a  peak  value  at  r  =0 

x 

(measured  from  the  radial  line)  and  diminishes  to  a  minimum  value  at 

r  =  ±  r  . 
x  d 

The  peak  exposure  rate  at  a  downwind  distance  Y  for  a  cloud 
layer  is  approximated  by 


where  I  is  given  by  Equation  8  and  is  the  average  exposure  rate  between 
8 

-r  and  r  at  any  downwind  distance.  The  exposure  rate  decreases  from 
ct  d 

its  peak  value  ("hotline"  value)  in  a  fashion  that  is  approximated  by  a 
normal  distribution: 
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where  -r  £  r  £  r,. 

d  x  d 

However,  the  DELFIC  exposure  rates  near  the  pattern  edge  ex¬ 
hibit  more  of  a  shoulder  and  then  drop  off  relatively  sharply;  this 
necessitates  modifying  Equation  (11)  to  simulate  the  sharper  drop.  The 
revised  expression  is 


The  procedure  as  reported  thus  far  provides  the  mechanics  for 
the  determination  of  the  exposure  rates  within  the  area  of  deposition 
for  fallout  from  each  cloud  layer.  Where  the  deposition  areas  of  fallout 
from  the  various  cloud  layers  overlap,  the  exposure  rates  are  then  summed 
to  give  total  cloud  exposure  rates. 


In  the  development  of  the  above  procedure,  many  of  the  inputs, 

such  as  the  value  of  f  K  in  Equation  (2)  and  the  relationship  of  I  to 

c  y 

I  in  Equation  (10)  are  empirically  determined  by  comparative  analysis 
a 

of  DELFIC  data  (the  results  of  DELFIC  runs)  with  the  results  obtained 
from  partially  developed  computerised  runs  based  on  the  above  rationale. 


In  the  region  near  the  detonation  point,  the  radioactivity  on 
the  ground  arises  from  detonation  ejecta  as  well  as  fallout  from  the 
stabilized  cloud  and  fallout  originating  from  the  developing  cloud  prior 
to  stabilization.  The  resulting  exposure  rates  are  not  presently  ade¬ 
quately  modeled  by  DELFIC  nor  by  any  other  fallout  model.  For  the  reasons 
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given  above,  the  exposure  rates  near  ground  zero  are  separately  modeled 
as  a  smooth  extension  to  the  upwind  boundary  of  the  results  obtained 
from  the  cloud  deposition. 


Once  the  hotlines  for  each  boundary  of  the  pattern  have  been 

established  (usually  from  the  bottommost  and  topmost  cloud  layers),  the 

edge  regions  are  defined  to  a  distance  of  r,  from  these  hotlines  by  us- 

d 

ing  Equation  12.  The  largest  particle  size  group,  landing  closest  to 

ground  zero,  is  then  used  to  define  the  shoulder  of  the  pattern  on  each 

side,  by  rotating  the  radius  r.  to  the  upwind  direction.  The  upwind 

d 

portion  of  the  pattern  is  then  smoothly  fitted  between  these  two  upwind 
radii.  Details  of  this  computation  can  be  obtained  by  inspecting  compu¬ 
ter  subroutines  GRNDZ,  EGDOSE,  and  SHLDR,  described  below. 


3.  Computer  Implementation 

This  section  is  the  formal  documentation  of  the  SEER  II  com¬ 
puter  program.  The  reader  is  assumed  to  possess  a  knowledge  of  the 
FORTRAN  computer  programming  language  and  an  understanding  of  general 
computer  terminologies.  The  subsection  on  the  preparation  of  input  data 
and  run  procedures,  however,  is  directed  toward  the  users  of  the  SEER  II 
•  program,  and  is  written  so  that  users  and  analysts  can  prepare  input 
data  and  use  the  program  without  the  assistance  of  a  professional  com¬ 
puter  programmer.  The  source  statements  for  all  routines  in  the  SEER  II 
program  are  listed  in  Appendix  A. 


a.  Program  Storage  Requirements 

The  SEER  II  computer  program  is  written  in  FORTRAN  IV  for 
the  Control  Data  6000  Series  Computer  Systems.  The  program  is  developed 
in  such  a  way  that,  with  minimal  modifications,  it  can  be  implemented  on 
any  computer  system  with  a  FORTRAN  compiler  and  40K  available  central 
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memory  storage.  Except  for  normal  card-data  input  and  printed  output, 
the  program  requires  neither  peripheral  storage  nor  peripheral  equipment. 


b.  Computer  Running  Time 

The  program  is  composed  of  two  distinct  segments,  both 
controlled  by  the  SEER  II  Main  Program.  The  first  segment  computes  all 
the  values  of  key  parameters  of  the  fallout  pattern  and  prints  these 
values  in  tabular  form.  The  computer  running  time  of  this  segment  varies 
from  approximately  1.3  seconds  for  a  one  kiloton  weapon  to  approximately 
6  seconds  for  a  ten  megaton  weapon.  This  segment  of  the  program  is 
called  only  once  for  each  weapon  and  wind  specification. 

The  second  segment  performs  the  mapping  functions  of  the 
program.  This  segment  utilizes  the  results  of  the  first  segment  to  com¬ 
pute  exposure  rates  for  all  grid  points  as  specified  by  the  user.  The 
user  specifies  the  range  of  the  values  and  the  scale  for  each  axis.  The 
computer  running  time  of  this  segment  depends  on  the  number  of  grid-point 
values  that  must  be  computed.  For  a  1200-grid-point  map  in  which  thc- 
specified  scale  is  sufficiently  large  so  that  the  output  map  includes 
the  1  r/hr  contour  line,  the  running  time  is  about  1  or  2  seconds;  how¬ 
ever,  for  the  same  size  map  but  with  a  smaller  scale,  the  mapping  segment 

may  require  up  to  5  seconds  of  computer  time.  The  second  segment  of  the 

* 

SEER  II  program  is  called  once  for  each  map  requested  by  the  user. 

c.  SEER  II  Main  Program 

The  SEER  II  computer  program  consists  of  a  Main  Program 
and  twelve  subroutines.  The  Main  Program  performs  the  following  functions: 

* 

It  should  be  noted  that  maps,  per  se,  will  be  of  little  interest  in  a 
damage  assessment  system. 
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(1)  reads  the  input  data  deck;  (2)  assigns  default  values  where  the  user 
has  not  specified  any  value;  (3)  calls  the  computational  subroutines  to 
compute  values  for  various  key  parameters  of  the  fallout  pattern;  (4) 
prints  the  computed  values  in  tabular  form;  and  (c)  calls  the  mapping 
control  subroutine,  TMAP,  to  generate  the  maps  requested  by  the  user. 

The  flowchart  for  the  SEER  II  Main  Program  is  shown  in  Figure  8. 


d.  The  Computational  Subroutines 

There  are  five  computational  subroutines  in  the  SEER  II 
program.  They  are  FEATUR,  PARTLP,  INTENS,  LFTRT,  and  EDGE.  These 
routines  are  all  called  from  the  SEER  II  Main  Program  ar.d  their  primary 
functions  are  to  compute  values  for  key  parameters  of  the  model: 

Subroutine  FEATUR.  This  subroutine  computes  values  for 
the  following  parameters:  (1)  altitudes  of  the  cloud  top 
and  cloud  base  at  stabilization  time;  (2)  time  of  cloud 
formation  or  stabilization;  (3)  time  of  termination  of 
radial  expansion  of  the  cloud;  (4)  time  of  change  in  ra¬ 
dial  expansion  rate  of  the  cloud;  (5)  the  minimum  and 
maximum  cloud  radius;  and  (6)  the  rates  of  cloud  radial 
expansion  immediately  after  stabilization  and  at  later 
times.  The  equations  for  these  parameters  are  presented 
in  Appendix  B,  and  were  empirically  derived  from  DELFIC 
print-outs.  Subroutine  FEATUR  is  quite  straightforward 
and  no  flowchart  is  necessary  to  show  the  computational 
processes . 


Subroutine  PARTLP.  This  subroutine  divides  the  nuclear 
cloud  into  various  layers  and  then  computes  the  landing 
points,  the  horizontal  distances  traversed,  and  the  times 
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of  fall  for  up  to  25  particle  groups  falling  from  each 
altitude  layer  to  the  ground.  This  procedure  traces 
the  path  of  the  hotline  for  each  cloud  layer.  A  pre¬ 
calculated  table  of  falling  times  for  the  particle 
groups  for  80  altitudes  is  stored  within  the  subroutine. 

The  calculation  for  this  table  follows  that  of  subroutine 
FALRAT  in  DELFIC.  Subroutine  PARTLP  takes  into  account 
the  wind  specified  by  the  user  and  the  falling  rates  of 
each  particle  group  at  various  altitudes  to  determine 
the  landing  point  as  well  as  the  horizontal  distances 
traversed  during  the  descent  to  the  surface.  The  routine 
also  calculates  the  1  r/hr  exposure  rate  radii  at  the 
particle  group  landing  points.  The  flowchart  c*  this  sub¬ 
routine  is  shown  in  Figure  9. 

Subroutine  INTENS.  The  primary  function  of  Subroutine  INTENS 
is  to  determine  the  exposure  rates  at  various  internally 
established  key  points.  The  locations  of  these  key  points  are 
selected  so  that  an  appropriate  network  of  exposure-rate  values 
would  be  available  for  the  mapping  routines.  The  routine  first 
computes  the  fallout  intensities  along  the  hotline  for  each 
cloud  layer  at  the  particle-group  landing  points.  Then,  after 
establishing  the  radial  distances  from  ground  zero  to  the  key 
positions  on  each  hotline,  the  routine  calculates  the  exposure 
rates  at  each  key  point,  taking  into  account  contributions 
from  all  cloud  layers.  Upon  return  from  this  routine,  array 
DRAY  contains  the  intensities  at  the  radial  points;  arrays 
XRAY  and  YRAY  contain  the  x  and  y  coordinates  of  the  radial 
points;  array  GDEAY  contains  the  horizontal  distances  traversed 
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FIGURE  9  FLOWCHART  FOR  SUBROUTINE  PARTLP 
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I  by  particles  descending  from  the  cloud  to  the  radial  points; 

I  array  FTRAY  contains  the  corresponding  falling  times;  array 

1RDRAY  contains  the  effective  radii  of  the  particle  groups; 

and  array  DRATSA  contains  the  ratios  of  the  hotline  exposure- 
rate  values  to  the  average  rates  at  the  established  radial 
distances.  The  flowchart  for  Subroutine  INTENS  is  shown  in 
Figure  10. 

\ 

j  Subroutine  LFTRT.  This  routine  determines  which  cloud  layer 

J  lands  on  the  leftmost  side  of  the  fallout  pattern  and  which 

lands  on  the  rightmost  side.  The  results  of  this  routine  are 
used  by  Subroutines  EDGE  and  EDGED.  For  runs  in  which  the 
wind  is  constant,  the  first  cloud  layer  deposited  will  be  both 
the  leftmost  and  the  rightmost  sides,  since  all  layers  land 
on  a  line.  The  routine  is  straightforward  so  that  no  flow¬ 
chart  is  needed  to  show  the  computational  process. 

Subroutine  EDGE.  This  routine  determines  the  locations  of 
pivotal  points  along  the  left  and  right  edges  of  the  fallout 
pattern.  For  each  of  the  radial  points  on  the  left  and  right 
J  crests  of  the  pattern,  the  routine  calculates  the  location  of 

j  a  corresponding  point  a  distance  of  1.1  times  the  effective 

i 

radius  away.  The  two  sets  of  points  thus  calculated  define 
the  left  and  right  edges  of  the  pattern.  A  multiplier  of  1.1 
is  used  because  it  corrects  the  very  sharp  dropoff  of  the 
DELFIC  patterns.  The  flowchart  for  Subroutine  EDGE  is  shown 
in  Figure  11. 


FIGURE  10  FLOWCHART  FOR  SUBROUTINE  INTENS 
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FLOWCHART  FOR  SUBROUTINE  EDGE 


•saas*-*^ 


w. 


fe 


t 


i 

£ 

fc- 

y 

v 

I 

I 

I 


fe 


e.  The  Mapping  Subroutines 

There  are  seven  subroutines  in  the  mapping  segment,  of 
the  SEER  II  program.  They  are  TMAP,  EDGED,  INTERP,  GRNDZ,  EGDOSE,  QUAD, 
and  SHLDR: 

Subroutine  TMAP.  This  routine  is  the  driver  for  the  mapping 
segment  of  the  program.  It  is  the  only  one  of  the  seven 
routines  in  this  segment  that  is  called  directly  from  the 
SEER  II  Main  Program.  TMAP  performs  the  following  functibns: 
(1)  determines  the  number  of  strips  of  map  output  for  the 
current  map  request;  (2)  clears  the  map  storage  areas;  (3) 
sets  up  the  range  of  x  values  for  each  strip  of  map;  (4)  sets 
up  the  values  of  the  coordinates  for  the  x  and  y  axes;  (5) 
calls  Subroutines  EDGED,  INTERP,  and  GRNDZ  to  compute  the  ex¬ 
posure  rates  for  all  map  points;  (6)  examines  the  computed 
values  at  each  map  point  and  converts  the  values  to  the  output 
mode  specified  by  the  user;  and  (7)  prints  the  output  map  in 
the  format  specified.  Subroutine  TMAP  is  called  once  for  each 
map  requested.  The  flowchart  for  this  subroutine  is  shown 
in  Figure  12. 

Subroutine  EDGED.  This  routine  sets  up  the  sequential  seg¬ 
ments  of  the  left  and  right  edges  of  the  pattern  fcr  mapping. 
This  subroutine  performs  no  computations,  but  merely  sets  up 
the  segments  and  then  calls  subroutine  EGDOSE  to  perform  the 
computations  related  to  the  mapping  within  each  segment.  The 
routine  is  quite  simple  and  no  flowchart  is  needed  to  show 
the  procedure. 
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FIGURE  12  FLOWCHART  FOR  SUBROUTINE  TMAP 


Subroutine  INTERP.  This  routine  computes  the  exposure  rates 
for  all  map  points  in  the  downwind  section  of  the  fallout 
pattern.  The  routine  divides  the  downwind  section  into  seg¬ 
ments  bounded  by  two  pairs  of  adjacent  radial  points  from  two 
adjacent  cloud  layer  hotlines.  The  routine  then  checks  each 
segment  to  determine  the  map  points  that  fall  within  its 
boundaries.  Exposure  rates  at  those  points  are  computed 
using  the  weighted  values  of  exposure  rates  at  the  four  ra¬ 
dial  points.  The  flowchart  for  Subroutine  INTERP  is  presented 
in  Figure  13. 

Subroutine  GENDZ.  This  routine  sets  up  various  parameters  in 
COMMON  block  /QUADRB/  for  the  computations  of  exposure  rates 
around  the  ground  zero  area.  The  routine  then  calls  Sub¬ 
routine  SHLDR  to  perform  the  mapping  for  the  left  and  right 
shoulders  of  the  fallout  pattern,  and  calls  Subroutine  EGDOSE 
o  perform  the  mapping  in  the  upwind  section  of  the  pattern. 

The  flowchart  for  the  routine  is  shown  in  Figure  14.  Sub¬ 
routine  GRNDZ  is  called  by  TMAP  and  is  called  once  for  each 
map  requested. 

Subroutine  EGDOSE.  This  routine  computes  exposure  rates  for 
all  map  points  on  the  left  and  right  edges  of  the  pattern,  or 
on  the  upwind  section  of  the  pattern.  For  a  run  in  which  the 
user  has  not  specified  the  use  of  fewer  than  25  particle  groups, 
the  routine  will  be  called  fifty  times  by  Subroutine  EDGED  and 
once  by  Subroutine  GRNDZ.  The  flowchart  for  Subroutine  EGDOSE 
is  shown  in  Figure  15. 
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FIGURE  13  FLOWCHART  FOR  SUBROUTINE  INTERP 
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FIGURE  15  FLOWCHART  FOR  SUBROUTINE  EGDOSE 


Subroutine  QUAD.  This  routine  determines  the  orientation  of 
a  quadrangle  and  orders  the  four  corners  of  the  quadrangle  so 
that  subsequent  mapping  of  the  area  can  be  done  in  an  orderly 
way.  The  mapping  processes  in  Subroutines  INTERP,  EGDOSE, 
and  SHLDR  require  the  leftmost  point  of  the  quadrangle  to  be 
stored  in  (AX,  AY)  of  COMMON  block  /QUADRA/;  the  point  diag¬ 
onally  opposite  it  must  be  stored  in  (DX,  DY)  and  the  point 
with  the  greater  slope  from  (AX,  AY)  must  be  stored  in  (BX,  BY) ; 
the  fourth  point  is  stored  in  (CX,  CY).  The  routine  also  cal¬ 
culates  the  slopes  of  the  lines  connecting  the  four  points. 
Subroutine  QUAD  is  a  simple  routine  and  no  flowchart  is  needed 
to  show  the  computational  process. 


Subroutine  SHLDR.  This  routine  computes  the  exposure  rates 
for  all  points  on  the  left  and  right  shoulders  of  the  fallout 
pattern.  Each  shoulder  is  defined  as  the  area  enclosed  by 
four  points:  the  vertex  point,  the  edge  point,  the  upwind 
point,  and  the  bisector  point.  On  the  left  shoulder,  the 
vertex  is  the  first  radial  point  on  the  leftmost  side  of  the 
pattern.  The  edge  point  is  the  first  point  of  the  left  edge 
of  the  pattern.  The  upwind  point  is  a  r  int  located  a  distance 
of  1.1  times  the  effective  radius  away  -rom  the  vertex  on  a 
line  perpendicular  to  the  line  connecting  the  left  and  right 
vertices.  The  bisector  point  is  located  on  the  bisector  of 
the  angle  formed  by  the  edge  point,  the  vertex,  and  the  upwind 
point.  The  point  is  'ocnted  a  distance  of  1.2  times  the  ef¬ 
fective  radius  away  from  the  vertex.  The  right  shoulder  is 
defined  in  a  similar  way.  The  flowchart  for  the  routine  is 
shown  in  Figure  16. 


FIGURE  16  FLOWCHART  FOR  SUBROUTINE  SHLDR 
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4. 


Users  Instructions 


The  input  data  for  the  SEER  II  computer  program  are  specified 
on  five  logical  cards.  These  logical  cards  are  problem  identification, 
problem  specification,  wind  data,  specification,  map  identification,  and 
map  specification  cards.  The  program  is  designed  so  that  any  number  of 
problems  can  be  *'un  in  one  computer  run.  If  more  than  one  problem  is 
to  be  executed  in  one  computer  run,  the  wind  data  need  not  be  respecified 
for  the  second  or  subsequent  problems  unless  the  wind  data  are  to  be 
changed. 

a.  Problem  Identification  Card 

The  problem  identification  card  is  used  to  provide  a  title 
or  heading  for  the  output  data.  The  user  may  enter  any  comment  in  columns 
1  to  80  of  this  card.  There  are  no  column  restrictions  except  that  the 
comment  or  title  must  be  on  one  card  only.  There  must  be  a  problem 
identification  card  for  each  problem,  A  blank  car  may  be  used  if  no 
comment  is  desired  for  a  particular  problem. 

b.  Problem  Specification  Card 

A  problem  specification  card  must  be  used  for  each  problem. 
This  card  contains  the  following  data: 


* 

A  logical  card  may  consist  of  any  number  of  physical  cards  needed  to 
contain  the  data  to  be  specified  by  that  logical  card.  For  example,  wind 
data  specification  may  require  from  1  to  14  cards,  depending  on  the 
amount  of  data  to  be  specified.  The  other  four  logic  input  cards, 
however,  require  only  one  physical  card  each. 
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Mnemonic 

Columns 

Format 

Restrictions 

W 

1-10 

F10.0 

Value  must  be  between  1.  and  30000. 

TLIMIT 

11-20 

F10.0 

None. 

NWIND 

24-25 

12 

If  entered,  value 

must  be 

between 

0 

and 

40. 

KDAT 

30 

11 

If  entered,  value 

must  be 

between 

0 

and 

4. 

NMAP 

31-35 

15 

None. 

NLVL 

39-40 

12 

If  entered,  value 

must  be 

between 

0 

and 

23. 

KPAR 

45 

11 

If  entered,  value 

must  be 

between 

0 

and 

3. 

W  is  the  weapon  yield  in  kilotons.  This  value  must  be  specified. 

TLIMIT  is  the  transport  time  limit  in  seconds.  If  no  value  is  entered, 

a  default  value  of  200000  seconds  will  be  assigned. 

NWIND  is  the  number  of  input  wind  levels.  Leave  blank  or  enter  zero 

if  wind  conditions  of  the  previous  problem  are  to  be  used,  (See 
4-c,  Wind  Data  Specification,  for  maximum  value  of  NWIND). 

KDAT  is  the  wind  data  format  code.  If  the  entry  is  blank  or  zero,  a 

default  value  of  one  is  assigned.  (See  4-c,  Wind  Data  Specifica¬ 
tion,  for  an  explanation  of  the  wind  data  formats.) 

NMAP  is  the  number  of  output  maps  requested  for  this  problem. 

NLVL  is  the  number  of  cloud  subdivisions  to  use  in  the  current  problem. 

If  a  blank  or  zero  is  entered,  the  program  will  compute  an  ap¬ 
propriate  value  based  upon  the  weapon  yield.  Values  larger  than 
15  may  result  in  excessive  computer  time.  Generally,  it  would 
be  better  to  allow  the  program  to  compute  this  value. 

KPAR  is  the  particle  gradient  code.  If  a  blank  or  zero  is  entered, 
the  program  will  assign  a  value  of  one.  A  1  requests  the  pro¬ 
gram  to  trace  the  fallout  pattern  with  25  particle  groups.  A  2 
requests  the  program  to  trace  the  pattern  with  13  groups.  A  3 
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requests  the  program  to  use  only  9  groups.  The  latter  value 
should  be  used  only  if  computer  running  time  is  an  important 
factor. 

c.  Wind  Data  Specification 

Wind  data  may  be  specified  in  one  of  four  formats.  The 
KDAT  entry  in  Column  30  of  the  problem  specification  card  indicates  the 
format  that  is  used.  If  KDAT  is  a  blank  or  zero,  Format  1  is  used.  When 
Format  1,  3,  or  4  is  used,  the  maximum  number  of  wind  levels  (NWIND)  is 
40;  when  Format  2  is  used,  the  maximum  number  is  15.  The  wind  data 
specified  for  the  last  wind  level  is  considered  constant  for  altitudes 
above  that  level.  For  Format  i,  the  wind  components  are  in  the  direc¬ 
tion  that  the  wind  blows.  For  the  remaining  formats,  the  direction 
shown  is  that  from  which  the  wind  blows. 

Wind  Format  1 — Wind  data  are  specified  by  altitude  and  by  x 
and  y  components.  The  data  for  three  altitude  levels  are  en¬ 
tered  on  one  card.  Use  as  many  cards  as  needed  to  specify  all 
data: 


Columns 

Format 

Data 

1-8 

F8.0 

Altitude  level  in  meters. 

9-16 

F8.0 

x  component  of  wind  in  meters/seconu, 

17-24 

F8.0 

y  component  of  wind  in  meters/second, 

25-48 

3F8.0 

Data  for  next  altitude  level. 

49-72 

3F8.0 

Data  for  next  altitude  level. 
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Wind  Format  2 — This  format  is  used  by  the  U. S.  Weather  Bureau; 
in  it  the  wind  data,  at  specific  atmospheric  levels,  are 
specified  by  compass  direction  codes  and  speeds  in  meters  per 


The  compass 

direction  codes 

are: 

01  = 

NNE 

10 

= 

SW 

02  = 

NE 

11 

= 

WSW 

03  = 

ENE 

12 

= 

W 

04  = 

E 

13 

= 

WNW 

05  = 

ESE 

14 

= 

NW 

06  = 

SE 

15 

= 

NNW 

07  = 

SSE 

16 

= 

N 

08  = 

S 

20 

= 

calm 

09  = 

S5W 

The  data  are  for  15  atmospheric  levels: 


(1) 

950 

millibars  or  500  meters 

(9) 

150  mb 

i  or 

■  14000 

(2) 

850 

mb 

or 

1500  m 

(10) 

100  mb 

i  or 

•  16000 

(3) 

700 

mb 

or 

3000  m 

(11) 

80 

mb 

or 

18000  l 

(4) 

500 

mb 

or 

5000  m 

(12) 

50 

mb 

or 

20000  ] 

(5) 

400 

mb 

or 

7000  m 

(13) 

30 

mb 

or 

24000  < 

(6) 

300 

mb 

or 

9000  m 

(14) 

20 

mb 

or 

26000  ] 

(7) 

250 

mb 

or 

10000  m 

(15) 

10 

mb 

or 

31000  ] 

(8) 

200 

mb 

or 

12000  m 
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The  data  are  entered  on  two  cards  with  the  following  format: 


Columns 

Format 

Data 

1-7 

7x 

Identification  (not  read  by  program). 

8-9 

F2.0 

Direction  code  for  Level  1. 

10-12 

F3.0 

Speed  in  meters/second  for  Level  1. 

13-17 

• 

F2. 0, F3. 0 

• 

Direction ■ and  speed  for  Level  2. 

• 

• 

68-72 

• 

F2.0, F3.0 

• 

Direction  and  speed  for  Level  13. 

The  second  card  has  the  same  format;  data  for  Level  14  are 
entered  in  columns  8-12;  Level  15  in  columns  13-17. 

Wind  Format  3 — Wind  data  are  specified  by  altitude,  speed,  and 
direction.  Data  for  three  altitude  levels  are  entered  on  one 
card.  Use  as  many  cards  as  needed  to  specify  all  data: 


Columns 

Format 

Data 

1-8 

F8.0 

Altitude 

level  in  feet. 

9-16 

F8.0 

Speed  in 

feet/second. 

17-24 

F8.0 

Direction  in  degrees  clockwise  from  North. 

25-48 

3F8.0 

Data  for 

next  altitude  level. 

49-72 

3F8.0 

Data  for 

next  altitude  level. 

Wind  Format  4 — Wind  data  are  specified  in  a  second  format  used 
by  the  U. S.  Weather  Bureau,  Data  are  given  by  direction  and 
speed  at  specific  altitude  levels.  The  altitude  levels  are: 
surface,  150  meters,  300,  500,  1000,  1500,  2000,  2500,  3000,... 
increments  of  1000...,  34,000  meters.  Eleven  sets  of  data  are 
entered  on  one  card.  A  maximum  of  four  cards  may  be  used  to 


enter  the  data: 


15-17 


18-20 


Identification  (not  read  by  program). 
Direction  in  degrees  from  North  (surface). 
Speed  in  meters/seconds  (surface). 


21-26  2F3.0  Direction  and  speed  (150  meters  altitude). 


75-80  2F3.0  Direction  and  speed  (5,000  meters  altitude). 

Second  card— data  for  altitudes  6,000  to  16,000  meters. 

Third  card — data  for  altitudes  17,000  to  27,000  meters. 

Fourth  card— data  for  altitudes  28,000  to  34,000  meters. 


d.  Map  Identification  Card 

The  map  identification  card  is  used  to  provide  an  identi¬ 
fying  title  for  each  map  requested.  The  user  may  enter  any  comment  in 
Columns  1  to  80  of  this  card.  There  are  no  column  restrictions  except 
that  the  comment  or  title  must  be  on  one  card  only.  There  must  be  one 
map  identification  card  for  each  map  requested.  A  blank  card  may  be 
used  if  no  comment  is  desired  for  a  particular  map  output. 


e.  Map  Specification  Card 

The  map  specification  card  is  used  to  define  the  area  and 
the  size  of  the  output  map.  The  user  specifies  the  x  and  y  ranges,  the 
incremental  values  of  the  grid  coordinates,  and  the  format  of  the  output 
map.  If  the  user  wants  the  map  grid  coordinates  to  have  the  same  linear 
scales  in  the  x  and  y  directions,  he  must  specify  the  incremental  values 
in  the  same  ratio  as  indicated  in  the  format  description  below.  For 
example,  the  ratio  for  Format  4  is  6  to  5;  therefore,  if  the  x  increment 


has  been  specified  as  6000  meters,  the  y  increment  must  be  specified  as 
5000  meters  if  the  user  wants  the  scales  to  be  equal.  The  grid  points 
in  the  x  (East-West)  direction  are  0.6  inch  apart.  The  grid  points  in 
the  y  (North-South)  direction  are  0.333  inch  apart  for  Formats  1  and  3, 
and  0.5  inch  apart  for  Formats  2  and  4.  One  map  specification  card  must 
be  used  for  each  map  requested: 


Columns 

Format 

Data 

1-10 

F10. 0 

Minimum  grid 

value  on  the 

X 

axis. 

11-20 

FI  0.0 

Maximum  grid 

value  on  the 

X 

axis. 

21-30 

F10. 0 

Minimum  grid 

value  on  the 

y 

axis. 

31-40 

F10. 0 

Maximum  grid 

value  on  the 

y 

axis. 

41-50 

F10.0 

x  increment. 

in  meters. 

51-60 

F10.  0 

y  increment. 

in  meters. 

65 

11 

Map  output  format  code. 

if 

specified,  the  value 

must  be  between  0  and  4.  If  a  blank  or  zero  is 
entered.  Format  4  will  be  used. 

Map  Format  1— Double-space  between  grid  points  in  the  y  direction 
Map  values  are  in  decimal  format.  Values  below  1  are  not  printed 
while  values  of  100,000  or  above  are  indicated  by  S9999.  The 
x  and  y  ratio  is  9  to  5. 

Map  Format  2 — Triple  space,  decimal,  format,  6  to  5  ratio. 

Map  Format  3 — Double  space,  exponential  format.  Map  values 

must  be  multipled  by  the  power  of  ten  indicated  above  each 

3 

value.  For  example,  3.565  means  3,565.  The  x  to  y  ratio  is 
9  to  5. 

Map  Format  4— Triple  space,  exponential  format,  6  to  5  ratio. 
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X.  Data  Deck  Setup 

The  following  is  the  order  of  the  input  data  deck  for  a 

SEER  II  run: 

(First  problem)  RUN  IDENTIFICATION 

RUN  SPECIFICATION 

WIND  SPECIFICATION  (1  to.  14  cards) 

MAP  IDENTIFICATION 
MAP  SPECIFICATION 

(Repeat  map  identification  and  map  specifi 
cation  cards  NMAP  times. ) 

(Subsequent  Problems)  RUN  IDENTIFICATION 

RUN  SPECIFICATION 

WIND  SPECIFICATION  (Omit  if  wind  data  are 
the  same  as  the  previous  problem;  i.e., 
NWIND  =  0.) 

MAP  IDENTIFICATION 

MAP  SPECIFICA  N 

(Repeat  last  2  cards  NMAP  times. ) 


BLANK  CARD  (Follows  last  problem  set  to 
indicate  end  of  the  input  data  deck. ) 
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Ill  MODEL  VALIDATION 


A.  Technical.  Aspects  of  the  Model 


The  SEER  II  mpdel  is  designed  to  simulate  DELFIC-produced  fallout 


patterns  at  greatly  reduced  computer  computation  times .  The  outputs  of 


the  SEER  II  model  are  print-out  maps  and  tabularizad  data  which  provide 


the  following  information: 


(1)  Map  coordinates 


(2)  Normalized  H  +  1  exposure  rates 


(3)  Fallout  arrival  times 


(4)  Cloud  base  at  cloud  stabilization  time 


(5)  Cloud  top  at  cloud  stabilization  time 


(6)  Minimum  cloud  radius 


(7)  Maximum  cloud  radius 


(8)  Cloud  formation  or  stabilization  time 


(9)  Radial  expansion  termination  time. 


The  computer  computation  time  for  weapon  yields  in  the  10-megaton 


range  is  approximately  6  seconds  per  1200  grid  point  run  and  approximately 


3  seconds  for  weapon  yields  in  the  low  kiloton  range.  The  computer  time 


could  also  be  further  reduced  by  decreasing  the  number  of  integration 


operations,  e.g.,  by  increasing  the  incremental  particle  size  ranges,  by 


increasing  the  incremental  cloud  layer  thicknesses,  or  both.  The  results 


of  these  changes  are  point  values  of  less  accuracy. 


CDC  6400. 
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In  its  present  state  of  development  the  model  is  limited  in  appli¬ 
cation  to  100-percent-fission  surface  bursts  for  weapon  yields  between 
1  kiloton  and  30  megatons,  (An  adjustment  factor  for  less  than  100  per¬ 
cent  fission  could  readily  be  inserted.)  The  model  is  also  limited  to  a 
static  wind  structure;  that  is,  the  model  cannot  handle  wind  inputs  that 
include  wind  vector  changes  with  time  or  horizontal  displacement.  The 
wind  inputs  are  therefore  restricted  to  wind  vectors  at  various  altitudes. 

B.  Comparison  of  Results 

A  criterion  for  the  SEER  II  model  is  that  it  simulate  DELFIC  fallout 
patterns.  Good  simulation  requires  the  SEER  II  fallout  pattern  exposure 
rate  contours  to  be  similar  to  those  of  DELFIC  in  shape,  size  and  orien¬ 
tation.  Since  DELFIC  produces  irregular  exposure  rate  contours  with 
highly  diverse  wind  structures,  it  is  necessary  that  SEER  II  also  pro¬ 
duce  exposure  rate  contours  that  are  similarly  irregular  with  the  same 
input  winds.  With  a  diverse  wind  structure  input,  the  DELFIC  fallout 
pattern  no  longer  xhibits  a  hotline  as  a  prominent  pattern  feature; 
consequently  the  usual  hotline  comparisons,  e.g.,  hotline  direction  and 
hotline  exposure  rates  vs.  distance  from  ground  zero  are  omitted. 

The  first  pattern  comparison  is  for  a  yield  of  10  megatons  and  for 
a  40-knot  uniform  wind.  As  can  be  expected  for  a  ••niform  wind,  (same 
velocity  and  direction  at  all  altitudes)  the  fallout  pattern  is  long 
and  narrow;  the  pattern  is  symmetrical,  and  a  readily  distinguishable 
hotline  exists  through  the  axis  of  the  pattern.  The  fallout  patterns 
for  this  constant  wind  case  are  shown  in  Figure  17.  The  length  to  width 
ratios  of  these  exposure  rate  contours  are  so  large  that  it  was  neces¬ 
sary  to  foreshorten  the  patterns  in  order  to  display  them,  by  applying 
one  scale  for  the  length  and  another  scale  for  the  width.  As  can  be 
seen,  the  lengths  and  widths  of  the  exposure  rate  contours  and  the  areas 
within  the  exposure  contours  agree  reasonably  well.  The  difference  in 
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FIGURE  17  FALLOUT  PATTERNS  FOR  10  MT-40  KNOT  CONSTANT  WIND 


shape  is  obvious.  However,  if  the  DELFIC  pattern  were  smoothed  of  its 
apparent  large -increment  square-wafer  effects,  the  shapes  would  also  be 
reasonably  similar. 

The  fallout  patterns  that  follow  will  be  generated  with  wind  struc¬ 
tures  that  are  variable  in  velocity  and  direction  with  altitude.  Conse¬ 
quently,  they  will  not  be  symmetrical  about  an  axis.  In  the  fallout 
patterns  that  follow,  tie  important  features  of  comparison  are:  exposure 
rate  contour  area  size;  exposure  rat?  contour  configuration;  and  pattern 
orientation  (i.e.,  the  exposure  rate  contour  area  should  not  only  be 
similar  in  size,  but  the  ground  coordinate?  covered  by  the  exposure  rate 
contour  areas  should  be  similar) . 

The  second  and  third  comparisons  oi  £>. -lout  patterns  are  for  rioo,-. 
severely  sheared  wind  for  a  2-megaton  and  a  30-c eg z :ou  b-uv>.,  respectively. 
These  fallout  pattern  comparisons  are  shown  in  Figures  18  and  15.  _n- 
cluded  in  each  figure  are  the  input  winds.  As  can  be  seen  in  both  com¬ 
parisons,  the  fallout  patterns  are  considerably  wider  than  in  the  uniform 
wind  case.  The  exposure  rate  contour  area  sizes  and  configurations  and 
the  pattern  orientation  are  remarkably  similar. 

The  fourth  comparison  is  for  a  2-megaton  burst  using  a  typical  Fort 
Worth  summer  wind.4  The  fallout  patterns  for  this  case  are  shown  in 
Figure  20.  As  can  be  seen,  the  fallout  deposited  in  both  easterly  and 
westerly  directions  and  the  patterns  are  not  "at  all  typical  of  those 
normally  presented  in  fallout  research  literature.  Nevertheless,  the 
SEER  II  exposure  rate  contours  are  remarkably  similar  to  those  of  DELFIC 
in  size,  configuration,  and  orientation. 

The  final  comparison  includes  a  DELFIC,  a  SEER  II,  and  a  WSEG6  fall¬ 
out  pattern.  The  weapon  yield  is  1  megaton  and  the  wind  structure  is  as 
listed  on  page  7  of  Seery  and  Polan.0  These  fallout  patterns  are  shown 
in  Figure  21,  The  WSEG  model  pattern  in  this  figure  is  an  approximation 
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WIND  HODOGRAPH  AT  GROUND  ZERO 

ALTITUDE  X  COMPONENT  Y  COMPONENT  ALTITUDE  X  COMPONENT  Y  COMPONENT 

(meter*)  (m/*ec)  (m/*ec)  (meters)  (m/sec)  (m/*ec) 


FIGURE  20  FALLOUT  PATTERNS  FOR  2  MT-FORT  WORTH  SUMMER  WIND 
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of  that  shown  In  Figure  3.5  on  page  25  of  Seery  and  Polan,®  The  simi¬ 
larities  and  differences  in  the  three  fallout  patterns  are  obvious.  In 
this  case,  although  the  SEER  II  and  DELFIC  patterns  were  similar  in  or¬ 
ientation,  the  areas  within  the  100  r/hr  and  the  50  r/hr  contours  are 
significantly  different, as  are  their  configurations. 

In  general,  the  comparison  of  other  SEER  II  fallout  patterns  with 
DELFIC  fallout  patterns,  as  well  as  those  shown  here,  indicate  that  the 
SEER  II  fallout  patterns  will  simulate  DELFIC  fallout  patterns  reasonably 
well  for  weapon  yields  between  1  kiloton  and  30  megatons  for  any  common 
wind  structure. 
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of  that  shown  in  Figure  3.5  on  page  25  of  Seery  and  Polan.6  The  simi¬ 
larities  and  differences  in  the  three  fallout  patterns  are  obvious.  In 
this  case,  although  the  SEER  II  and  DELFIC  patterns  were  similar  in  or¬ 
ientation,  the  areas  within  the  100  r/hr  and  the  50  r/hr  contours  are 
significantly  different, as  are  their  configurations. 

In  general,  the  compa  son  of  other  SEER  II  fallout  patterns  with 
DELFIC  fallout  patterns,  as  well  as  those  shown  here,  indicate  that  the 
SEER  II  fallout  patterns  will  simulate  DELFIC  fallout  patterns  reasonably 
well  for  weapon  yields  between  1  kiloton  and  30  megatons  for  any  common 
wind  structure. 
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IV  STATISTICAL  WIND  VARIATIONS  VS,  FALLOUT  PATTERN  VARIATIONS 


A.  Purpose 

Predictions  of  fallout  from  nuclear  detonations  are  sensitive  to  at 
least  two  inputs:  the  fallout  model  used  and  the  meteorological  condi¬ 
tions  postulated.  The  possible  errors  introduced  into  the  prediction  by 
a  faulty  fallout  model,  even  when  information  on  winds  is  perfect,  have 
already  been  discussed.  But  it  is  also  well  known  that  the  most  detailed 
fallout  model  in  use  (DELFIC)  will  fail  to  yield  good  fallout  predictions 
if  it  is  given  inaccurate  or  incomplete  wind  predictions. 

There  are  two  essentially  different  problems  in  wind  predictions. 

One  type  applies  when  it  is  known  that  a  nuclear  detonation  is  going  to 
occur  at  or  near  a  specified  time,  as  in  weapon  tests  or  in  simulating 
actual  nuclear  warfare.  In  this  situation,  it  is  important  to  be  able 
to  predict  winds  for  a  few  hours  or  days  in  the  future  given  meteorologi¬ 
cal  data  now  and  in  the  immediate  past.  The  essential  questions  concern 
meteorological  theory  and  observations  about  persistence  and  change  of 
wind  fields.  The  other  type  of  problem  is  peculiar  to  damage  assessment 
studies  of  the  kind  that  SEER  is  designed  for.  Here,  one  in  general  does 
not  know  the  most  likely  time  of  detonation  (although  it  is  sometimes 
postulated)  .  For  a  given  set  of  detonations  and  targets,  the  damage 
assessor  is  most  inteiested  in  what  is  the  most  likely  fallout  pattern  and 
what  degree  of  variation  from  this  mean  condition  is  possible.  The 
answers  to  these  questions  possibly  can  be  found  by  examining  the  sta¬ 
tistics  of  wind  data  for  the  geographical  locations  of  interest.  The 
purpose  of  this  section  is  to  investigate  how  the  variability  of  winds 
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affects  the  variability  of  fallout  patterns,  and  whether  relatively 
simple  rules  can  be  generated  for  relating  the  two  kinds  of  statistics. 

B.  Discussion  of  Procedure 

Winds  vary  in  direction  and  speed  at  different  altitudes,  geographi¬ 
cal  locations,  and  time.  Because  the  winds  at  any  time  and  at  any  loca¬ 
tion  can  vary  significantly  with  altitude,  the  number  of  distinctive  sets 
of  wind  structures  is  so  large  as  to  make  the  available  wind  frequency 
data  difficult  to  interpret.  The  variations  in  fallout  patterns,  on  the 
other  hand,  can  be  described  by  the  distribution  of  activity  deposited 
within  the  pattern,  by  pattern  size,  by  pattern  shape,  and  by  the  loca¬ 
tion  of  the  pattern.  Both  the  size  and  shape  of  the  fallout  pattern 
and  the  fallout  deposition  within  the  pattern  can  be  described  by  speci¬ 
fying  the  sizes  and  the  shapes  of  the  areas  within  normalized  exposure 
rate  contours. 

If  the  manifold  ways  in  which  a  wind  structure  can  vary  could  be 
converted  to  only  a  few  parameters  to  which  fallout  deposition  is  sensi¬ 
tive,  then  the  problem  of  relating  statistical  wind  variations  to  sta¬ 
tistical  fallout  pattern  variations  would  become  manageable.  By  this 
means,  wind  variations  that  do  not  significantly  affect  the  fallout 
deposition  pattern  need  not  be  evaluated  statistically. 

The  primary  wind  characteristics  that  affect  the  size,  shape,  and 

location  of  various  fallout  exposure  rate  contours  can  be  reduced  to 

three  parameters:  the  maximum  effective  wind  speed;  the  effective  wind 

* 

angular  displacement;  and  the  direction  of  the  maximum  effective  wind 
vector.  These  parameters  are  illustrated  in  Figure  22  and  defined  in 
the  next  paragraph.  However,  variations  in  fallout  patterns  will  occur 
even  among  winds  defined  by  the  same  maximum  effective  wind  speed  and 
effective  wind  angular  displacement. 

This  parameter  is  rolated  to  what  is  often  termed  wind  shear. 
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DISPLACEMENT  VECTORS  FOR  PARTICLES  FALLING  AT  CONSTANT  1  m It  FROM  ALTITUDE 
TO  SURFACE 


FIGURE  22  WIND  PARAMETERS  FOR  STATISTICAL  ANALYSIS 


Although  many  fallout  models  use  an  effective  wind  speed  as  a  model¬ 
ing  parameter,  our  studies  indicate  that  fallout  pattern  characteristics 
correlate  best  with  the  maximum  effective  wind  velocity.  The  effective 
wind  velocity  vector  is  commonly  defined  as  the  vector  sum  of  the  wind 
vector  velocities  at  each  altitude  layer  divided  by  the  number  of  alti¬ 
tude  layers  from  the  weapon  cloud  altitude,  e.g.,  cloud  center  altitude, 
to  the  ground  surface.  The  maximum  effective  wind  velocity  is  defined 
as  the  maximum  effective  velocity  vector  that  is  obtained  from  any  al¬ 
titude  within  the  weapon  cloud  base  and  weapon  cloud  top  to  the  ground 
surface.  The  effective  wind  angular  displacement  is  defined  as  the  maxi¬ 
mum  angle  between  any  two  effective  wind  vectors  for  altitudes  within 
the  weapon  cloud.  It  is  equivalent  to  the  enclosed  angle  within  which 
would  land  all  falling  particles  originating  from  any  point  vertically 
above  ground  zero  within  the  weapon  cloud.  These  parameters  obviously 
depend  on  the  postulated  weapon  yield. 

The  fallout  pattern  response  to  an  increase  in  the  maximum  effec¬ 
tive  wind  speed  is  an  increase  in  pattern  length,  and  the  fallout  pat¬ 
tern  response  to  an  increase  in  the  wind’s  angular  displacement  is  an 
increase  in  pattern  width.  Increases  in  both  speed  and  angular  displace¬ 
ment  are  reflected  in  a  decrease  of  the  areas  within  the  higher  exposure 
rate  contours  together  with  an  increase  of  the  areas  within  the  lower 
exposure  rate  contours. 

The  number  of  descriptive  shapes  ascribable  to  fallout  patterns 
is  limited  only  by  imagination.  One  quantitative  measure  of  pattern 
shape  that  can  usually  be  easily  defined,  however,  is  the  width  to 
length  ratio.  Our  primary  measure  of  shape  shall  therefore  be  the  ratio 
of  width  to  length.  Other  descriptive  indicators  of  shape,  such  as 
elongated  ellipse,  a  fan  shape,  or  a  teardrop,  could  also  be  included 
if  useful.  The  maximum  effective  wind  vector  direction  is  the  general 
indicator  of  the  direction  of  the  fallout  cloud  movement  from  ground 
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zero.  The  maximum  effective  wind  vector  is  also  near  the  bisector  of 
the  fallout  mass,  even  though  it  may  not  geometrically  bisect  all  of 
the  exposure  rate  contour  areas.  For  these  reasons,  exposure  rate  con¬ 
tour  lengths  are  measured  parallel  to  the  direction  of  the  maximum  ef¬ 
fective  wind  vector,  and  widths  are  measured  perpendicular  to  this  vec¬ 
tor.  The  length  is  defined  as  the  distance  between  the  extreme  upwind 
and  extreme  downwind  extents  of  the  contour,  whereas  the  width  is  de¬ 
fined  as  the  maximum  of  the  crosswind  distances  between  the  contour 
edges  (see  Figure  23).  The  width  to  length  ratio  is  expected  to  de¬ 
crease  with  increasing  maximum  effective  wind  speed  or  decreasing  wind 
angular  displacement. 

For  a  specific  weapon  yield,  each  wind  structure — as  defined  by  a 
range  of  maximum  e>  active  speeds  and  a  range  of  effective  angular  dis¬ 
placements — will  produce  a  fallout  pattern  with  a  range  of  exposure  rate 
contour  areas  and  a  range  of  width  to  length  ratios.  The  application 
of  statistics  to  maximum  effective  wind  speeds  and  effective  angular 
displacements,  both  of  which  incorporate  variations  with  altitude,  will 
supply  the  statistics  on  exposure  rate  contour  area  sizes  and  exposure 
rare  contour  width  to  length  ratios.  Additional  statistical  breakdowns 
by  descriptive  shapes  could  also  be  made  if  useful.  If  the  statistical 
distribution  of  exposure  rate  contour  sizes  and  shapes  is  known,  wind 
direction  frequency  can  then  be  used  to  determine  the  frequency  of  fall¬ 
out  patterns  by  direction. 

It  is  ackncrwledgeo  *hat  only  the  effects  of  static  wind  structures 
at  fixed  times  and  geographical  locations  are  included  in  the  general 
analytical  procedure  suggested  above,  and  that  the  effects  of  variations 
of  dynamic  wind  changes  as  a  function  of  time  and  space  are  not  included 
There  &  j  several  reasons  for  excluding  the  latter  type  of  analysis. 
Perhaps  the  most  important  is  that  data  are  rarely  collected  in  such  a 
way  that  they  describe  the  varying  winds  seen  by  a  moving  fallout  cloud 


59 


Even  if  this  type  of  data  were  available,  however,  its  resolution  into 
quantitative  relationships  between  wind  variability  and  pattern  varia¬ 
bility  would  require  a  sophisticated  model  to  handle  this  data  and  ex¬ 
tensive  analysis. 


C.  Procedure 

The  following  steps  appear  to  constitute  a  reasonable  procedure 
for  investigating  the  relationship  of  wind  variability  and  fallout  pattern 
variability: 


(1)  Obtain  wind  data  for  a  location  (meteorological  station). 
The  data  are  in  the  form  of  wind  speeds  and  wind 
directions,  at  various  altitudes  at  various  times 

of  measurement . 

(2)  Convert  the  data  to  effective  speeds  and  effective 
directions  as  functions  of  altitude.  The  altitudes  of 
interest  depend  on  the  weapon  yields  of  interest.  For  ~\ 
example,  if  the  pattern  variability  for  a  1  megaton 
weapon  is  desired,  the  altitudes  of  interest  are  between 

0  and  20  kilometers.  The  primary  converted  data  of 
this  effort  are  the  maximum  effective  speed,  the 
effective  direction,  and  the  effective  angular  dis¬ 
placement  for  each  set  of  wind  data.  Supplementary 
data  from  this  effort  could  include  the  following: 

(a)  Sum  of  clockwise  directional  changes 

(b)  Sum  of  counterclockwise  directional  changes 

(c)  Total  directional  change 

(d)  Net  directional  change 

(e)  Maximum  ’"vte  of  directional  change  and  corresponding 
altitude 
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(f)  Maximum  speed  and  corresponding  altitude  and 
direction 

(g)  Minimum  speed  and  corresponding  altitude  and 
direction 

(h)  Sum  of  velocities 

(i)  Average  effective  speed 

(j)  Minimum  effective  speed  and  corresponding  altitude. 

Variability  in  the  supplementary  data  could  create  vari¬ 
ability  in  fallout  patterns.  The  supplementary  data  are 
for  determining  the  significance  of  this  variability. 

(3)  Group  the  winds  according  to: 

(a)  Effective  angular  displacement  (degrees) 

a-1  0-10 

a- 2  10-25 

a- 3  25-50 

a- 4  50-90 

a-5  >  90 

(b)  Maximum  effective  speed  (meters/second) 

b-1  0-  8 

b-2  8-16 

b-3  16-24 

b-4  24-32 

b-5  >  32 

(c)  Combination  of  (a)  and  (b)  above  (i.e,,  25  subgroups 
where  a-1,  b-1  and  a-1,  b-2  are  two  subgroups. 


(d)  Supplementary  groupings 
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d-1  Sum  of  clockwise  directional  changes  (degrees) 
d-1-1  0-10 

d-1-2  10-25. 

d-1-3  25-50  (etc.) 


d-2  Sum  of  counterclockwise  directional  changes 


d-3  Average  effective  speed  (m/s) 
d-3-1  0-  8 

d-3-2  8-16 

d-3-3  16-24  (etc.) 


(4)  Find  frequency  distributions  in  Groups  a,  b,  a  and  b  in 
combination,  and  a,  b,  and  d  in  combination. 

(5)  Select  wind  structures  that  are  most  closely  approximated 
by  Table  1. 

(6)  Run  SEER  II  for  all  selected  basic  wind  structures 
(maximum  of  25  runs)  .  Additional  runs  can  be  made  for 
winds  that  fit  the  same  subgroup  but  nevertheless  are 
significantly  different — e.g.,  Subgroups  (a-3,  b-3,  d-l~l) 
and  (a-3,  b-3,  d-1-3)  are  both  in  Subgroup  (a-3,  b-3) — 

to  ascertain  the  effects  of  these  differences. 

(7)  Measure,  from  the  SEER  II  computer  run  printouts,  area 
sizes  and  width  to  length  ratios  of  a  set  of  exposure 
rate  contours,  e.g.,  5000  r/hr,  1000  r/hr,  500  r/hr, 

100  r/hr,  and  50  r/hr.  Record  supplementary  comparative 
shape  descriptions. 


Table  1 


MATRIX  SHELL  FOR  COMPUTER  RUNS  OF  MAXIMUM  EFFECTIVE  SPEEDS 
FOR  SELECTED  ANGULAR  DISPLACEMENTS 


For  a  Maximum 
Effective  Speed  of 

For  an  Effective  Angular  Displacement  of 

5°  17°  37°  70°  130° 

5  meters/second 

12  ineters/second 

20  meters/second 

28  meters/st  oond 

36  meters/second 

(8)  Apply  the  wind  frequency  in  each  subgroup  as  a  weight 
for  the  area  sizes  and  width  to  length  ratios. 

(9)  Determine  the  following  for  each  exposure  rate  contour: 

(a)  Mean  area  size 

(b)  Area  size  range  for  p  ±  0.5a 

(c)  Area  size  range  for  p  ±  lo* 

)|c 

(d)  Area  size  range  for  p  ±  2a 

(e)  Mean  width  to  length  ratio 

j|( 

(f)  Width  to  length  ratio  range  for  p  ±  0.5a 

(g)  Width  to  length  ratio  range  for  p  ±  l.a* 

(h)  Width  to  length  ratio  range  for  p  ±  2. a 

(10)  Determine  corresponding  ranges  of  wind  variability  for 
the  ranges  of  fallout  pattern  variability. 

(11)  Using  supplementary  data  on  Subgroupings  d-1,  and  d-2, 
provide  pertinent  supplementary  statistical  breakdowns. 


=  mean,  c  =  standard  deviation 
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(12)  Using  supplementary  data  from  Step  (2a),  determine 
directional  frequency  distribution. 


(13)  Formulate  'Ji.pirical  relationships  equating  wind 
variations  to  fallout  pattern  variations. 


Wind  Statistics: 

(1)  Frequency  vs.  effective  speed 

(2)  Frequency  vs.  effective  angular  change 

(3)  Frequency  vs.  direction 

(4)  Mean  effective  speed 

(5)  Mean  effective  angular  change 

(6)  Mean  direction 

(7)  Frequency  between  speed  and  angular  change 
ranges 

(8)  Frequency  of  speed  in  directional  range 

(9)  Frequency  of  angular  change  in  directional  range 

(10)  Frequency  in  speed  and  angular  change  ranges 
in  directional  range 

Pattern  Statistics: 

(1)  Exposure  contour  size  distributions 

(2)  Exposure  contour  width  to  length  ratio  distributions 

(3)  Pattern  direction  distribution 

(4)  Mean  contour  sizes 

(5)  Mean  width  to  length  ratios 
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(6)  Mean  pattern  direction 

(7)  Frequency  of  contour  sizes  and  width  to  length 
ratio  combinations 

(8)  Frequency  of  cont  sizes  in  directional  range 

(9)  Frequency  of  width  to  length  ratios  in  directional 
range 

(10)  Frequency  in  size  and  width  to  length  ranges  in 
directional  range. 

D.  Procedure  Test 
1 .  Conditions 

The  above  suggested  procedure  for  relating  wind  variations  to 
fallout  pattern  variations  was  tested  with  the  wind  data  obtained  for 
Peoria,  Illinois  and  a  1  megaton  surface  burst.  The  test  was  limited 
to  the  following  wind  calculations  and  pattern  measurements: 

Wind 

(1)  Maximum  effective  speeds 

(2)  Directions  of  maximum  effective  velocity  vectors 

(3)  Effective  angular  displacements 
Pattern 

(1)  Exposure  rate  contour  areas 

(a)  1C90  r/hr  conr>urs 

(b)  100  r/hr  contours 

(2)  Width  to  length  ratios 


(3)  Directions. 
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The  available  Peoria  wind  data  consisted  of  wind  speeds  and 
directions  at  various  altitudes  tat'en  at  6-hour  intervals  over  a  period 
of  6  years.  It  was  therefore  possible  to  examine  fallout  pattern  varia¬ 
tions  statistically  for  time  of  day  and  seasonal  wind  variations.  However, 
‘’ince  specification  of  the  time  and  season  are  not  always  done  in  damage 
assessment,  the  following  analysis  was  performed  only  for  the  overall 
annual  statistics. 


f  2 .  Results 

S' 

i 

\  Shown  in  Figure  24  are  the  daily  wind  variations  over  Peoria 

t 

in  1962  in  terms  of  direction,  effective  angular  displacement  and  maximum 
•  effective  speed.  On  most  days,  four  observations  were  made  6  hours 

f 

apart;  however,  the  number  of  observations  on  any  day  could  range  from 

i 

i  none  (no  mark  indicated  in  the  figure)  to  four.  The  wind  direction  was 

separated  into  sixteen  sectors,  and  thus  the  shortest  lines  indicate 
one-day  direction  variations  of  only  22,5  degrees.  The  ranges  of  effec¬ 
tive  angular  displacement  and  maximum  effective  speed  on  any  day  are 
as  indicated.  In  most  cases  a  single  value  (a  dot)  indicates  only  one 
observation  on  that  day  rather  than  no  variation  within  that  day. 


»  Table  2  gives  the  wind  frequencies  within  the  maximum  effective 

1  speed — effective  angular  displacement  ranges  indicated  for  6  years 

of  data.  Figure  25  shows  the  directional  frequencies.  The  mean  wind 
S  direction  is  very  nearly  west-to-east  (275°),  and  the  standard  deviation 

j  is  44° .  The  speed-angular  displacement  relationship  is  shown  in 

1 

I  Figure  26.  As  can  be  seen  (and  as  can  be  expected)  winds  with  small 

|  angular  displacements  occur  more  often  with  high  speed  and  winds 

\  with  large  angular  displacements  occur  more  often  with  low  speeds. 


s 


The  exposure  rate  contour  areas  of  SEER  II  fallout  patterns  for 


a  1  megaton  surface  burst  and  for  selected  winds — ones  that  closely 
approximate  the  mid-value  of  the  parameters  in  Table  1— are  shown  in 


FIGURE  24  WINDS  OVER  PEORIA  IN  1962 


FIGUr.t  DISTRIBUTION  OF  WIND  DIRECTIONS  OVER  PEORIA 
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Table  2 

OVERALL  WIND  FREQUENCIES 


Maximum  Effective 
Speed 

For 

an  Effective  Angular  Displacement  of 

o 

O 

f- t 

1 

o 

10-25° 

25-50° 

50-90° 

90° 

All 

Angles 

0-8  meters/second 

Frequency 

85 

143 

154 

102 

44 

528 

Percent 

1.31% 

2,21% 

2.38% 

1.57% 

0.68% 

8.14% 

8-16  meters/second 

Frequency 

789 

859 

281 

36 

11 

1976 

Percent 

12,17 

13.25 

4.33 

0.56 

0.17 

30.48 

16-24  meters/second 

Frequency 

1358 

703 

81 

2 

0 

2144 

Percent 

20.95 

10.84 

1 .25 

0.03 

0 

33.07 

24-32  meters/second 

Frequency 

1455 

287 

2 

0 

0 

1744 

Percent 

22.44 

4.43 

0,03 

0 

0 

26,90 

>  32  meters/second 

Frequency 

81 

9 

0 

1 

0 

91 

Percent 

1.25 

0.14 

0 

0.015 

0 

1.40 

All  speeds 

Frequency 

3768 

2001 

518 

141 

55 

6483 

Percent 

58.12 

30,87 

7.99 

2.17 

0.85 

100% 

|  Table  3.  The  ratios  of  the  1000  r/hr  contour  areas  to  the  100  r/hr  con- 

j  tour  areas  are  shown  in  Table  4,  The  contour  lengths,  widths,  and  width 

j  to  length  ratios  for  the  1000  r/hr  contours  are  shown  in  Table  5,  and 

I 

•*  contour  lengths,  widths,  and  width  to  length  ratios  for  the  100  r/hr 

contours  are  shown  in  Table  6. 


The  trend  in  area  changes  is  stronger  with  maximum  effective 
speed  changes  than  with  effective  angular  displacement  changes.  The 
former  relationship  is  shown  in  Figure  27.  Conversely,  length,  width, 
and  width  to  length  ratios  of  the  1000  r/hr  contour  and  the  100  r/hr 
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Table  3 


EXPOSURE  RATE  CONTOUR  AREAS 
(square  kilometers) 


Maximum  Effective 

For  an  Effective  Angular  Displacement  of 

Speed 

0-10° 

10-25° 

25-50° 

50-90° 

>  90° 

0-8  meters/second 

Exposure  rate  1000  r/hr 
Exposure  rate  100  r/hr 

2,000 

12,500 

1,150 

8,930 

1,250 

8,370 

1,200 

7,450 

1,200 

9,120 

8-16  meters/second 

Exposure  rate  1000  r/hr 
Exposure  rate  100  r/hr 

1,90? 

3,940 

990 

9,770 

790 

11,200 

D 

13,000 

16-24  meters/second 

Exposure  rate  1000  r/hr 
Exposure  rate  100  r/hr 

1,400 

13,400 

1,150 

11,300 

090 

11,900 

24-32  meters/second 

Exposure  rate  1000  r/hr 
Exposure  rate  100  r/hr 

1,250 

12,800 

720 

11,800 

>  32  meters/second 

Exposure  rate  1C00  r/hr 
Exposure  rate  100,  r/hr 

1,080 

13,600 

Table  4 


RATIO  OF  1000  r/hr  CONTOUR  AREA  TO  100  r/hr  CONTOUR  AREA 


Maximum  Effective 
Speed 

F.  an  EffeCvive 

Angular  Displacement  of 

0-10° 

10-25° 

25-50° 

50-90° 

>  90° 

0-8  meters/second 

'M  •' 

0,1288 

0.1493 

0.1609 

0.1316 

8-16  meters/second 

0.191., 

0.1013 

0.0705 

0.0723 

16-24  meters/second 

0.1045 

0.1018 

0 .0580 

24-32  meters/second 

0,0977 

0.0610 

>  32  meters/second 

0.0794 

Table  5 

1000  r/hr  CONTOUR  AREA  LENGTHS  AND  WIDTHS 
( kJ-  lometers) 


Maximum  Effective 
Speed 

For  Effective  Angular  Displacements  of 

0-10° 

10-25° 

25-50° 

50-90° 

>  90° 

0-8  mete»-s/second 

Length 

188.3 

69.2 

61.5 

44.0 

25.5 

Width 

20  .7 

22.2 

26.4 

38.0 

77  .7 

Width/Length 

0.11 

0.32 

0.43 

0.86 

3.05 

8-16  meters/second 

Length 

190.4 

116.0 

58.0 

50.0 

Width 

20.0 

17.5 

18.0 

38.0 

Width/Length 

0.11 

0.15 

0.31 

0.76 

16-24  meters/second 

Length 

116.0 

82.0 

47.2 

Width 

14.6 

17.2 

19.2 

Width/Length 

0.13 

0.21 

0.41 

24-32  meters/second 

Length 

123.0 

69.6 

Width 

11.6 

12.1 

Width/Length 

0.094 

0.22 

>  32  meters/second 

uength 

116.0 

Width 

10.0 

Width/he ugth 

0.086 

_ 

contour  are  more  readily  related  to  the  effective  angular  displacement 
parameter.  These  relationships  are  shown  in  Figures  28,  29,  and  30. 

The  statistics  of  fallout  pattern  characteristics  can  be  determines  by 
weighting  the  pattern  features  from  Tables  3-6  by  the  wind  statistics 
from  Table  2.  The  contour  pattern  statistics  are  shown  in  Table  7. 

The  wind  statistics  in  Table  2  also  lead  to  the  following  wind 
stai istics : 
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FIGURE  29  100  r/hr  CGNTOUR  LENGTH  AND  WIDTH  VERSUS 

EFFECTIVE  WIND  ANGULAR  DISPLACEMENT 
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WiDTH/LENGTH 


FiGURE  30  WiDTH/LENGTH  RATIOS  VERSUS  EFFECTIV-  WIND  ANGULAR  DISPLACEMENT 
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Table  6 


100  r/hr  CONTOUR  AREA  LENGTHS  AND  WIDTHS 
(kilometers) 


Maximum  Effective 
Speed 

For  Effective  Angular  Displacements  of 

o 

1 

»— 1 
o 

o 

10-  25  c 

25-50° 

50-90° 

>  90° 

0-8  meters/second 

Length 

649.4 

196.6 

200.0 

106.0 

96.2 

Width 

37.4 

68.6 

84.9 

106.0 

190.0 

Width/Length 

0.058 

0.35 

0,42 

1.00 

1.98 

8-16  meters/second 

Length 

571.1 

492.0 

260.0 

142.0 

Width 

36.0 

48.8 

82.0 

148.0 

Width/Length 

0.063 

0.099 

0.32 

1 .04 

16-24  meters/seconu 

Length 

700.0 

300.0 

194.0 

Width 

34.0 

55.0 

114.0 

Width/Length 

0.049 

CO 

i—4 

o 

0.57 

24-32  meters/second 

Length 

532,0 

360.5 

Width 

37.0 

62.3 

Width/Length 

0.070 

0.17 

>  32  meters/second 

Length 

837.0 

Width 

47.4 

Width/Length 

_ 

0.057 

•Vi  nd 

Paramecer 

Mean 

Standard 

Deviation 

Maximum  effective 

speed,  meters/second 

18.75 

7.21 

Effective 

angular 

displacement,  degrees 

14,09 

16.30 

Effective 

direction,  degrees 

275 

44 

By  the  definitions  used  in  this  analysis,  the  effective  direction  of  the 
fallout  pattern  is  identical  to  the  effective  wind  direction,  so  that  the 
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Table  7 


FALLOUT  PATTERN  STATISTICS 


Parameter 

Units 

Mean 

Standard 

Deviation 

1000  r/hr  area 

2 

km 

1267 

318 

1000  r/hr  length 

km 

114 

38 

1000  r/hr  width 

km 

16.8 

6.9 

1000  r/hr  W/L  ratio 

— 

0.193 

0.267 

100  r/hr  area 

.2 

km 

11,590 

1631 

100  r/hr  length 

km 

496 

168 

100  r/hr  width 

km 

48.6 

22.7 

100  r/hr  W/L  ratio 

— 

0.150 

0.224 

1000  r/hr  area 

100  r/hr  area 

0.112 

0.035 

statistics  of  the  pattern  direction  coincide  with  those  of  the  wind  di¬ 
rection.  Thus,  the  mean  pattern  direction  is  the  same  as  the  mean  wind 
direction,  and  the  distribution  of  directions  is  the  same. 

It  is  interesting  to  see  whether  the  same  argument  applies  to 
the  other  fallout  pattern  characteristics.  The  values  shown  above  were 
used  to  generate  a  fallout  pattern  for  the  mean  wind  and  for  given  ex¬ 
treme  winds.  (Although  a  specific  wind  could  have  been  selected  to  re¬ 
produce  these  parameters,  the  pattern  features  were  instead  obtained  by 
interpolation  in  Tables  3-6.)  The  results  are  shown  in  Table  8. 

Comparison  of  Tables  7  and  8  shows  that  the  fallout  pattern 
derived  from  the  mean  wind  field  closely  approximates  the  mean  fallout 
pattern.  Furthermore,  the  deviations  predicted  from  deviations  in  the 
winds  are  often  good  approximations  to  the  observed  fallout  pattern  de¬ 
viations.  The  only  exceptions  are  in  the  pattern  widths  and  width  to 
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Table  8 


FALLOUT  PATTERN  FEATURES  OF  SELECTED  WINDS 


Parameter 

Units 

Mean 

Deviation' 

1000  r/hr  area 

2 

km 

1200 

325 

1000  r/hr  length 

km 

98 

37. 

1000  r/hr  width 

km 

17 

2.3 

1000  r/hr  W/L  ratio 

— 

.18 

.08 

100  r/hr  area 

2 

km 

11,500 

1560 

100  r  'hr  length 

km 

420 

215 

7 

100  r/hr  width 

km 

48 

20 

100  r/hr  W/L  ratio 

— 

.13 

.14 

1000  r/hr  area 

100  r/hr  area 

— 

.105 

.028 

*  ' 

Root  mean  square  of  deviations  obtained  from 

using  mean  wind  speed  with  plus  and  minus 
1  a  angular  displacements  and  mean  angular  dis¬ 
placement  with  plus  and  minus  1  a  wind  speeds. 

length  ratios,  particularly  for  the  1000  r/hr  contour.  Finally,  it  was 
determined  that  much  more  of  the  variability  in  pattern  features  was 
accounted  for  by  variability  in  the  effective  singular  displacement  than 
by  variability  in  the  maximum  effective  speed. 

3 .  Discussion  of  Results 

The  results  of  the  test  of  the  procedure  to  relate  wind  vari¬ 
ability  to  fallout  pattern  variability  show  that  the  procedure  appeal’s 
to  be  effective.  Even  though  the  test  was  only  exploratory  by  nature 
(in  that  it  lacked  the  detail  and  refinement  of  a  complete  test),  it  did 
reveal  the  more  prominent  relationships  between  wind  variability  and 
fallout  pattern  variability.  These  relationships  were  previously  shown 
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in  Figures  27-30,  and  in  Tables  7  and  8.  A  more  complete  test  will 
undoubtedly  reveal  other  more  subtle  correlations  as  well  as  the  rela¬ 
tionships  for  the  entire  fallout  pattern. 

To  date,  wind  speed  has  been  generally  used  as  the  predomi¬ 
nant  variable  in  modeling  fallout.  It  is  therefore  a  revelation  that 
the  effective  angular  displacement  has  a  greater  effect  on  fallout  depo¬ 
sition  patterns  than  speed.  On  the  other  hand,  if  the  winds  do  not 
exhibit  significant  variations  in  effective  angular  displacement,  then 
the  effects  of  this  relationship  would  be  suppressed.  Table  2  indicates 
that  about  60  percent  of  the  winds  over  Peoria,  Illinois  have  effective 
angular  displacements,  with  reference  to  a  1  megaton  surface  burst, 
within  the  0  to  10  degree  range.  Whereas  most  of  the  winds  of  Peoria 
will  produce  long  narrow  patterns,  i.e.,  1000  r/hr  contour  width  to 
length  ratios  of  about  0.1  and  100  r/hr  contour  width  to  length  ratios 
of  about  0.06,  the  percentage  of  Peoria  winds  that  will  produce  wider 
and  shorter  exposure  rate  contour  patterns  are  not  insignificant.  Be¬ 
cause  fallout,  especially  for  the  lower  exposure  rate  contours,  takes 
many  hours  to  descend,  it  is  also  necessary  to  consider  the  stability  or 
persistence  of  the  wind  structure  with  time.  By  scanning  the  daily  wind 
direction  variations  in  conjunction  with  the  variations  in  the  daily 
effective  angular  displacement  variations  in  Figure  24,  it  can  be  con¬ 
cluded  that  where  the  time  elemenl  is  included,  the  occurrence  of  small 
effective  angular  displacement  winds  over  Peoria  would  be  significantly 
reduced.  The  relationship  of  the  variability  of  the  wind's  effective 
angular  displacement  to  fallout  pattern  variability  is  therefore  of 
major  importance. 

E .  Conclusions  and  Recommendations 

The  limited  test  of  the  procedure  for  relating  pattern  variability 
to  wind  variability  appears  to  be  successful. 
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A  result  of  major  importance  is  that  statistical  features  of  fallout 
patterns  (means  and  standard  deviations  of  area,  length,  and  so  on)  can 
be  predicted  reasonably  well  from  the  patterns  produced  by  the  mean  and 
standard  deviation  wind  parameters.  This  feature  suggests  that  statis¬ 
tical  measures  of  fallout  pattern  variability  can  be  produced  for  any 
geographical  location  by  using  the  wind  statistics  with  SEER  II  or  other 
fallout  models,  rather  than  by  applying  the  model  repeatedly  to  the  ob¬ 
served  winds  io  produce  the  statistics. 

Another  important  result  is  that  variability  of  angular  displacement 
in  the  wind  (wind  shear)  appears  to  be  responsible  for  the  greater  part 
of  variability  in  the  pattern,  whereas  variability  in  wind  speed  is 
less  effective. 

It  is  recognized  that  these  results  are  based  on  wind  statistics 
for  only  one  meteorological  station  and  are  valid  for  only  one  weapon 
yield.  Although  it  is  currently  believed  that  the  conclusions  will  be 
strengthened  with  a  greater  variety  of  test  cases,  it  .is  recommended 

)Jc 

that  the  test  be  extended  to  several  other  geographical  locations  ard 
severrl  other  yields  before  great  reliance  is  put  on  these  conclusions. 

It  is  also  recommended  that  the  effect  of  the  other  possible  variations 
mentioned  in  Part  B  be  tested  for  significance. 


Wind  data  for  hundreds  of  other  U.S.  and  foreign  locations  are  avail¬ 
able  from  the  USAF  ETAC;  of  these,  the  data  have  already  been  converted 
into  the  coirect  format  for  analysis  for  six  other  U.S.  locations. 
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V  SUMMARY 


i 

The  originally  developed  SEER  simplified  fallout  computation  model 
provided  symmetrical  fallout  patterns  that  simulated  DELFIC  fallout 
•patterns  for  moderately  sheared  winds.  For  highly  sheared  winds,  how-^ 
aver,  DELFIC  produced  irregular  patterns  that  could  not  be  adequately 
simulated  by  the  original  SEER  model.  Because  of  this  inadequacy,  a  new 
model,  SEER  II,  was  developed  that  would  simulate  DELFIC  fallout  patterns 
for  any  wind  structure . 

SEER  II  and  DELFIC  fallout  patterns  for  various  yields  and  wind 
structures  were  compared f  and  it  was  found  that  in  general  the  SEER  II 

j 

exposure  rate  contours  simulated  the  DELFIC  exposure  rate  contours  in  ) 
size,  shape,  and  orientation  reasonably  well.  SEER  II  requires  about  3 
seconds  of  CDC  6400  computer  execution  time  per  1200-grid-point  run  for 
weapon  yields  in  the  low  kiloton  range  increasing  to  6  seconds  of  computer 
time  for  weapons  in  the  10  megaton  range.  These  computer  execution  times 
can  be  compared  to  about  2.5  seconds  for  the  original  SEER  model  and  a 
few  hundred  seconds  for  DELFIC, 

i 

t 

A  procedure  to  relate  wind  variability  statistically  to  fallout 
pattern  variability  was  developed  and  tested.  From  the  limited  test 
conducted,  the  developed  procedure  appeared  to  be  successful.  A  result 
of  major  importance  is  that  statistical  features  of  fallout  patterns  can 
be  predicted  reasonably  well  from  patterns  produced  by  the  mean  and 
standard  deviation  wind  parameters.  Another  important  result  is  that 
variability  of  angular  displacement  in  tne  wind  (wind  shear)  appears  to 
be  responsible  for  the  greater  part  of  variability  in  the  pattern,  whereas 
variability  in  wind  speed  is  less  effective. 
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Appendix  A 


SEER  II  PROGRAM  AND  SUBROUTINE  LIOTING 
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Table  A-l 

SEER  II  MAIN  PROGRAM 


COC  6600  FTN  V3.0-P261  0PT*u  05/09/72  15.13.21. 


pmUomaM  Sf£R  (J9PU).  OUTPUT) 


Stl*  11  MODEL— * IEVISE3  SIMPLIFIED  ESTIMATION  OF  EXPOS. -.£  TO 
RADIATION  MOOEt 


1 1  TlE 

XMIN.XMAX 

YMIN.TM44 

JELX.OElY 


CJ-«£vT  PROBLEM  .UtNTIFICATION 

aE-(-On  YIELD  (HI).  THIS  v»lUE  HOST  BE  SPECIFIED. 
TRANSPORT  TIME  LI  TIT  (SECONOS) .  IF  NO  VALUE  IS 
SPEClFIEu.  OEFALLT  VALUE  of  200,000  SECONDS  BILL  BE 

assigned. 

njhbE*  Of  | NPj T  AINU  LEVELS.  ENTER  BLA^T  °P  0  (2£P0j 
IF  HIND  UAU  of  PREVIOUS  problem  ape  to  be  used, 
input  kind  oat-  format  control  Integer. 

- 1  NO  DATA  ARE  ENTERED  by  altitude  (METERS)  AND  X  AND  Y 
components  th/seci. 

a  I  NO  data  are  EMEPEO  in  heather  BUREAU  FORMAT— COMPaSS 
DIRECTION  COOE  AND  SPEED  (R/SEC)  AT  SPECIFIC  ElEvaTIONS 
data  ARE  ENTEREO  by  ALTITUDE  (FEET).  SPEED  (FT/SEC). 

AND  DIRECTION  (DEGREES  CLOCKtfISE  FROM  NORTH) 

DATA  ARE  ENTEREO  In  SECOND  HEATHER  BUREAJ  FORMAT  — 
DIRECTION  IN  OLGREES  CLOCKHISE  FROM  NORTH  and  SPEED 
IN  M/5EC  AT  SPtCIFIC  ELEVATIONS 

njhber  of  output  map  heouests 

number  of  cloud  levels  to  JSE  in  CURRENT  pROB-tM.  IF  A 
BLANK  OH  n  (Y£RO)  IS  ENTERED,  PROGRAM  «IcL  COMPUTE  AN 
APPROPRlAlt  VALUE.  IF  NLVL  IS  SPECIFIED.  VALJE  must  BE 
BETaEEN  3  and  33,  VALUES  LARGER  Than  IS  mat  RESULT  IN 
EXCESSIVE  COMPUTER  TIME.  In  GENERAL.  LET  (HE  PROGRAM 
COMPUTE  1 H I S  VALUE. 

particle  gradient  code. 

trace  hotlines  «ith  25  particle  gruups.  «hen  a  blank 

or  r  (ZERO)  H»s  BEEN  SPECIFIED.  A  DEFAULT  VALUE  OF  1 
«1LI  BE  ASSIGNED. 

JSE  13  PARTICLE  GROUPS  FOR  THE  TRACE 

JSE  9  PARTICLE  GROUPS  FOR  TmE  TRaCE.  USE  THIS  VALUE 

only  is  short  computer  time  is  important 

current  map  title  oh  IDENTIFICATION 

specified  RANGL  of  X  VALUES  FOR  current  MAP 

SPECIFIED  RANGE  OF  T  V*LUES  FOR  CURRENT  M*P 

SPECIFIED  DISTANCES  BETaEEN  GRID  POINTS  ALONG  THE  X  AND 

Y  AXES  f  JR  The  CURRENT  "a®  R£BueST 

m»p  fdrmat  control  integer 

oouble  space.  Decimal  format,  9  to  s  ratio  on  axes. 

TRIPLE  SPACE,  DECIMAL  FORMAT,  B  TO  5  RATIO  ON  AXES. 
JOuHLE  SPACE,  exponential  FORMAT,  r  TO  3  rati?  ON  axes. 

triple  space,  exponential  foRraT,  *  to  5  Ratio  on  axes. 


L(if MON  /INOaT/  a. AL«. TI TlE  IS) , TLlMI T 

1  /AWRAY/  D-A»(2S.23l.<RAY(26i23!.YHAY(26i23>'G0RAYI26»23>> 

?  F  MAM  36, 23)  ,POMA Y  ( 3 S  , 3l )  ,0RAT SA ( 26 i 23 > , 

<  NlVL.01SMAX,U1SMIN,KPaP,KA,KB,NPAR 

—  /EOORay/  xlk (26»21  *YLR(26*2) , IlP(26»2) 

5  /aNUAIA/  A(.T(A0),  UX(*0||  0T(*D),  NKINO.  ku*t 

6  /CLOAIA/  ACU.ACT,RMlN.RMAX.TSRfTRMAX,RATIO.TRA.RATA 

1  /MAP/  XMIN.AMAX,YHIN,YMAX,OELX»OELY.LMAP.TxMJN,TXMAX. 

a  YAXlS(SUO) .XAXISI20' 

DIMENSION  tLABEL(H1 

DATA  ASTaR  /  9h*  «  A  A  •  / 


1j  READ  930.  (TLABEL(I).  1«1,B) 
n3)  FORMAT  (BAlD) 

MEAO  90V.  A.  TLIM1T,  NHlNU.  KOAT.  mMaP,  NLVL*  KP*R 
9)6  FORMAT  (2fl  1,0,  lAl5| 

IF  (A  .£9.  0.)  CALL  EAJT 
IF  (TLIMIT  ,ES.  o.l  TLlMir  ,  200003. 

IF  (HUAI  .El,  0*  KOAT  P  1 
If  (KPAR  oLT.  1)  KPAR  A  1  i  IF  !KPRR  ,GT.  3)  *PaR  *  J 

KA  i  2  S  KB  a  2-  S  NFAR  *  26 
IF  (KPAR  ,£G.  1)  GO  TO  12 


t 
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Preceding  page  blank 


Table  A-l  (Concluded) 

prOjrAR  6£tR  I-mCK  COC  6600  F7n  V3.0-P271  OPI*0  05209272  15.13.21, 


*A 

•  J 

A  <■)  •  2  7 

J. 

NPAR  ‘4 

If 

(KPA3 

•EJ.  2)  GO  (0 

12 

*A 

•  •* 

S  A6  ■  2d 

1 

NPAR  •  >0 

12  If  (NLyL  .EJ,  (i!  nL/L  •  *tOr,ui  ♦  3.i) 

If  Inly.  .LT.  3>  NL VL  *3  *  If  (NLVL  . OT.  23<  N.VL  »  23 

IS  If  (.alNJ  ,£J.  3)  GO  10  30 

NaO  »  '•a  IN) 

uO  13  <1  15.  20.  23).  AUAT 


C  ac.Af.lER  HOrcAJ  FJRRaf 

BC  I)  READ  91«.  (J«(!l.  3T(I;«  Ul.NRINO)  »  GO  TO  40 

<10  FORR»T  (/*,  1  3  (  f  2  *  0  t  fJ.OD 
C 

C  alTIIoOE  anj  a.  7  lJRPONEnTS  OP  ALTITUDE.  SPEED.  and  0IRECTI09 
20  READ  020.  (AlKI).  OA(l).  D  V  <  I )  a  !•!  ,  NN 1  NO  .*  J  3D  10  40 
as  920  fOPMAl  (9f1.o,  B») 


C  SECOND  aEAflEO  dJNEAU  FORMAT 

PS  NfcAO  92 S.  10A ( 1 1 .  0711),  1«1 »  Nr 1N0 )  i  GO  TO  40 
92S  foP»*f  ll4X.  22f3.0l 
9C  ))  9,1  <J  a  Na,) 

»0  CALL  FEAIUR  4  call  PaHTlP 

PR  I  Ml  93,1.  aSTAR.rSIaR.aSTAR.ASTAR,  ( TLAHEl ( t I  .1*1 .3)  liitLlMIT, 

I  ACd,  ACT  « MR IN, DMA A*  TSP.TRAAX.ASTAR.ASTaR 

jO  TO  (42.  ,4.  46.  <31.  MOAT 

93  42  PRINT  9  TO .  (A^Kl).  0  A 1 1 1  .  OY  4  X I  •  1*1»NG0>  *  30  TO  4ft 

4  3  PRINT  976.  (AlT(I).  OA  (II*  <>r  1 1 )  •  lal.NaO)  S  GO  K>  4* 

>4  psj.r  972,  (alkii.  jaii).  or«ii.  i«i.n»di  s  go  u  »» 

46  PRINT  974,  (AlT(1I.  UA  (  1  )  .  3.Y(1|,  I  a  1  •  NaO  ) 

•R  CALL  TnIENa 

lOO  PRINT  961 

JO  S)  IA  «  i .  NLfL 

PRINT  9SS,  (lA,I,UH47<l»I»).XRAY(t»SAI,YRAY(I,IA).3DRAY(I.IA). 

1  f  TRAYd.IAI.ROWAYlI.IAl  ,  ORA  TS6  ( I  »  I  A)  .  lal.NPAH) 

30  CU.Tl'.JE 

10S  If  IN9AP  .EJ.  ■))  GO  13  10 

CA._  ^TRT  »  CALL  EDGE 
30  6)  IA  a  l,  N9AP 
REA)  )30 •  (tllLtll).  l«l.ai 

RtA>)  933"  A4lN.ANAA.fRIN.YRAA.0EL*.  )£LY»LRAP 
no  935  f OR 4a f  it.Fl.TO.  isi 

Ca„L  TRAP 

If  (.RAP  .6).  11  LH1P  *  4 
6)  COR  T i N JE 
nO  TJ  10 

ns  93,.  f DR'IAT  (1R1  //  5  7  4,  2410/2  JB*.  aSIRPLIflEO  ESTIMATES  Of  EXPOSURE 

1  TO  RaJIATDN  (SEtR)  R  JOEL  •  22  57  A ,  2A10  2222  19X.  •RUN  IDENTIFIC 
2AT  I  )..--•  HA  1  a*  2/  3  )A .  aaEAPON  YIELD*  177.  flO.l,  •  KILOTONS*  22 

3  39A.  4194.59301  HUE  LIHIT*  T77,  FlO.l,  •  SECONDS*  22  39A,  *CLOUD 

4  BASl.  r  7  7 ,  FjJ.l,  4  RE1ER5*  2/  39*.  *CLOUD  TOP*  t7i»  FlL.l.  •  RET 

12')  ScRi*  22  39a,  4RINIRJR  CLOUD  RADIUS*  T77,  FlO.l.  •  PETERS*  //  39*. 

4  4R4AMJR  CLuJO  Radius*  T77,  FlO.l.  •  rETehS*  .V  39*.  *CL°UD  fOOra 
iriu.N  TIRE*  177.  FlO.l.  •  SECJNDS*  22  39*.  *R*.UIAL  EXPANSION  TERhIN 
patio,  tire*  T  77,  fl).*,  *  SECONDS*  2/2  **X»  *10.  **I.ND  HODOGRAPh  A 
9!  3RU  J-.  J  2£r3  •,  All  2/1 

1 2S  933  FORMAT ( 22 Ihj  •  1*4  Til.  TlS,  ’EXPOSURE  RATE*  735,  •*  METERS* 

1  Iso.  47  -’EfERS*  162.  •GROUND  DIST*  T79.  *FALL  TIME*  T97,  ’RADIUS* 

2  Tub,  4U0al  RATIO*  //  (216.  1P7EIS.*)) 

96.)  f  1)9.. AT  (ImI) 

97*  rORRAI  (.Sa.  44LTIIO0E  *  COMPONENT  Y  CORPONENT*  2  4&X. 

130  1  • („ETERS!  (R2SECI  (R/SECl*  22  (37*.  3dfr.2>> 

972  40RMAT  (T49.  *AL  7 1  TUIlE*.  164«  ’COMPASS*.  T7h,  ’SPEED*  /  1*9. 

1  4(RtltMS|4*  163.  4Dl«tC1I0N4.  T77,  4(M/5EC>4  22  (40*.  Fl6.2. 

2  M2. 0,  <13.01) 

9/4  FORMAT  (4B*.  4ALIITO0E  SPEED  DIRECTION*  2  49*.  *IFEE1) 

135  1  (F I 2StC 1  (OEOREES) •  /2  (40*.  F16.0,  F13.0,  Ell. O') 

776  FOH.UI  (149,  4,lT1HIUE4.  T6.<, ‘DIRECTION*,  TVS.  ’SPEED*  /  149, 

1  4('4EIE»S)4,  763.  *  (DEGREES)  •*  T7T.  «(R2SEC)*  22  <*(>*.  F16.2. 

2  f  12.0,  Fl3.(i)l 
ENO 


- 
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Table  A-2 


SUBROUTINE  FEATUR 

COC  6600  FTn  V3.0-P261  OPT »0  05/09/72  15,13,21. 


iuhNOuTHE  fEAIuH  TRACE 

SUBROUTINE  FSatuR 

L 

C  SUomolTInE  TO  COMPUTE  VARIOUS  FEATURES  OF  ThE  CLOUD 


JC 


•  S 


50 


35 


COMMON  /CtOATA/  ACOiACT»RAIN.RMAX.T$R,TRMAX,RATI0|TRA,RATA 
l  /INOAT /  A,  AL«*  UTlEIBI*  TLIMJT 


COMPUTE  ALTIIJOES  Of  CLOJU  TOP  ANO  CLOUD  BOTTOM 


AL*  * 

A„OO10<») 

10 

IF  (« 

.ST.  10,0)  GO  TO  10 

*Ct  • 

3500.  •  ■••0.2?1  -  (U.0-„)kk2.67 

1 

GO 

TO 

35 

1? 

IF  <» 

.37.  lUO.Ll  GO  TO  ?• 

ACT  ■ 

♦  0O0.  •  •••0.2362  -  ,  1  33. kill .3 

s 

GO 

TO 

35 

2j 

if  C» 

.3T«  10C0.1  GO  TO  3J 

15 

ACT  « 

♦200.  •  •••0.225 

35 

AC*  « 

1700. •♦••0.263*  *  3J3,U«k«k(-0.S) 

$ 

GO 

TO 

100 

3w 

IF  (* 

.37.  2000.)  GO  TO  *0 

ACo  » 

1350.  •  •••0.2951  S  00  TO  AS 

v? 

IF  (« 

.61. •'10000.1  GO  TO  30 

^0 

ACb  » 

lBttO.  •  ■••0.2525 

45 

ACT  « 

5>i00.  •  ■••0.1759  1  GO  TO  190 

50 

aCT  « 

3100.  •  •••0.2*39 

i 

ACd  ■ 

1330.  •  •••3.2901 

db 

c 

COMMUTE  CLOUD  FORMATION  TIME,  EXPANSION 

TERMINATION 

TIME 

txPAN$ION-RATE  CmanSE  TIME 
HO  TSP  «  20.3  •  (16.0>e.U*AL«-***u,27) 


11. • 


lMr-A« 
If  I. 
TMMAX 
If  I* 
IF  (• 
TKmAA 
11 3  IF  Ik 
I  MMAX 
I  Cl  lilMAA 
130  'PA  < 


200«.0k«kk0,b3* 

,5t.  10.1  *0  TO  HO 
•  (l.**AA*..0*A*»kkl  •  TPHAX 
,k£.  103,1  GO  TO  193 
•or.  1000. 1  oo  TO  115 
«  ll.»»i..333*AL«l*rPMAA  * 
,GT.  13000. |  GO  TO  120 
«  I.»1S.,003»AL«1  •  T«MAX  S 
»  .75  •  TRmaX 
<TNNAA-7SM»1U00.1  /  3.3 


f  00  TO  130 
GO  TO  130 


GO  TO  133 


CC>-PuTt  RIMT-m  ANU  MAXIMUM  CLOUO  SAOII 

mmIk  •  350. ••••O.S**  ♦  (350. 3-100. •al**»2.*I»U.0»*L«7 

If  (»  «kE.  10.  .39,  «  .GE.  10000.)  GO  TO  150 

IF  !•  ,lE.  100.)  GO  TO  111 

KMlfi  »  I.V«,OOl54kALkk«3)  •  mmjn  »  00  TO  ISO 

HO  "MlK  «  1  1  ,OOBb-,OOQ'f6*«l  *  M k  1 N 
15l>  MMAX  •  2200, 0*w**0, 301*  •  **  1.18 
If  (k  , GE.  1000.)  GO  TO  1 7 j 
If  I k  .kt.  10.)  30  TO  1*0 

PMAX  •  |. 81235. ,020tiEkALi|k»L«i  *  UMAX  t  GO  TO  >70 
If'.  MM*X  «  1 .5587, ,  1  7*5»Ak»)  •  *<M‘x 


COMPUTE  MATES  (IF  PAUTAk  E«PANSIUN 
I/O  kATlU  »  (WMAA-l . I«M<I •  >  /  (TMMAX-TSM) 

h a r a  •  o.l  •  RHiv  /  itra.isri 

f'ETUM-. 

tNO 
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Table  A-3 

SUBROUTINE  PARTLP 


SUMMOIlTt'lf  PARTI.P  TOACE 

SUMWOUTIUF  PARTL® 


cnc  6*00  FTN  V3.0-PJA1  0PT»0  05/10*72  IT. 36.?*, 


Sll«R(>tlTtKE  TO  COMPUTE  l*NOIUG  POIMTS  (XraY.YraY),  M0RI20MYAL 
■miVCES  TRaVERSFO  (GOHAYI.  RAOt!  (RflRAYI.  TIMES  OF  FALL 
(FTPAy)  OF  PART ICLl  GROUP*.  DESCENDING  FROM  VARIOUS  CLOUD  LEVELS 

common  /mnoata/  alt <aoi  ,  oxiaoi,  oyiabi.  nwind,  k&at 

•  /SCMTCM/  *TAY(P6tP3),YtAt(?A,?3|,flOTAY(2A|?3)«rTTAY(?6,Z3), 

7  Rf)T»Y  (2*,23|  iPAOX  180.29)  .PARY 180.26)  «OU“*  12032) 

1  /ARRAY/  3RAY(?6.23I .X«AYI26.?3> »YRAY}26.73) t0DRAY<26.23) . 

A  FIRAY  t PA *? J 1 .»DRAY(?6.23>  .0RAT5A 126.23) . 

6  NLVL.0I5MAX.OtSMIN,KPAR,KA,KR,NPAR 

A  /CLOATa/  acb. act. rmin.roax.tsr.trmax.ritto.tra. rata 

DIMENSION  FTIMr(90,?9) ,  ELFVI20),  ELEVi'.A?) 

DATA  RAT  /  .3RPA50I/ 

DATA  FLrv/  500,.  1S00.4  3000..  5000..  7000..  9000..  10000. . 

12000..  14000. •  1A000.,  1 ROOO, .  20000..  24000..  26000., 

2  71000. ,  76000,,  41000,.  4*000.,  5)00*.,  5*000,/ 

OAT*  FLEY2/  0.,  150..  300,,  500.,  1000.,  15*0,,  2000,,  2500., 
I  3000.,  4000.,  500(1,,  6000.  1  7000.,  ROOO,,  9000. ,  1 0000. , 

p  UO"0.. 12000.. 13000.. 14000.. 16000.. 1 *000.. 17000.. 1 ROO0,. 

3  1RO0O., 20000.. 21 000.. 22000,. 23000. .24000.. 25000. .26000., 

4  27000.. 28000.. 29*00., 70000., 71 000.. 32000., 33000., 34000.. 

5  3500*. .3*000. .370*0. .30000. .39000. .40000. ,41000.  / 


DATA 

(FTTME(T 

.  i).  ?>i 

.901  / 

32.. 

*3. , 

93., 

123.. 

lil*» 

179.. 

207., 

233.. 

2«9., 

285.. 

310.. 

TH.* 

357.. 

38o,, 

*02., 

*»*.. 

**5.  , 

*65., 

ASS.  « 

5«5.. 

523.. 

5*2.. 

539., 

577., 

593., 

625., 

**0,  . 

*5*,. 

6*8.  , 

682,  , 

695., 

7*7., 

720., 

771  ., 

7*3. . 

753., 

7*4,. 

774., 

7*3. t 

793.. 

907.  , 

810.. 

819.. 

827., 

834., 

«*?.  • 

549., 

95*.  , 

8*3.. 

8*9,  , 

873,, 

882,, 

MS7,# 

997.. 

999.. 

90*.. 

909., 

914,, 

919., 

<>?*.• 

720,, 

933., 

937,. 

941,, 

943., 

949,, 

*S1.t 

957.. 

9*0., 

964.. 

9*7., 

971,, 

974,, 

V77#f 

970.. 

907,, 

98*,. 

989,, 

991./ 

DATA 

«FTIMC(| 

•  2),  l.l 

,90)  / 

*7.. 

93., 

138,, 

182,, 

2?5.* 

267., 

309 ,  , 

3*8.. 

387,. 

423.. 

462.. 

49A.* 

534.. 

56*., 

60?.. 

635,, 

667 .  , 

698., 

7?«., 

757.. 

784., 

814.. 

941., 

868,, 

893., 

*1*.. 

94?,, 

965., 

988,, 

1010., 

1031,, 

1051,, 

1  0  7 1  •  * 

1 09*.. 

1109., 

1127,. 

1144., 

1161., 

1177., 

11 93. t 

1200.. 

1727., 

1237.. 

1250., 

1 764. * 

1277., 

l?«9*t 

1301.. 

1717., 

1724., 

1375., 

13*6., 

1357,, 

I3a7»i 

1377., 

178*., 

1793., 

14*5., 

1*13., 

1*22.. 

tOA.* 

1439., 

1446., 

1454.. 

1 4*2 • , 

1*69,, 

1*76., 

» 

14*3*. 

1*90., 

1497., 

1303.. 

1510.. 

1516., 

1522,. 

1  bi?A  •  • 

1534., 

1539., 

16*5.. 

1530., 

1856./ 

PATA 

tritwr n 

•  3),  !«) 

,801  / 

*0,  . 

118., 

17*., 

230,. 

?64*« 

337., 

389,, 

439., 

489,  , 

337., 

585,  . 

<>31  •  * 

67*,, 

T2o  ,  * 

7*3., 

805,. 

8*6,, 

885,, 

9?A,t 

9*2., 

999., 

1035.. 

1070., 

1103., 

1136., 

1  ISA.* 

1199,, 

1229., 

1259., 

12«7,, 

1315., 

13*1., 

13*7., 

1392,, 

141*., 

1440., 

1*63., 

1**5., 

1506,, 

1 S?7, * 

15*7,, 

1568., 

1583.. 

1 60* • , 

1621.. 

1639., 

IASS • * 

1672,, 

1*88,, 

1703,. 

1718., 

1733., 

1747., 

17M •• 

1775., 

1788., 

1801., 

1813,, 

1823., 

1837., 

1*49., 

1 9*0, , 

187?., 

1882., 

1893.. 

1903., 

1914., 

19?3#, 

1933.. 

1943., 

1952., 

1961., 

1970.. 

1978,, 

19S7., 

1995., 

2003,  • 

2011., 

2019., 

2027./ 

i 
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Table  A-3  (Continued) 


T(1 


75 


85 


sunofur^r  paqiip 

TO»CE 

COC 

660)  FT*) 

V3.0-P?*l 

01>T*0  05/10/72 

U.:*  A 

(F'lMFlI 

*1.  I»1 

.90)  / 

73.. 

1**., 

213., 

291.. 

» 

1*0.* 

*13.  • 

*7*.  * 

53*.* 

599,1 

659,i 

717.. 

1 

77*.  i 

930., 

99*. » 

937.1 

900.. 

1039.1 

1099.1 

i 

in*.. 

11*3., 

1229,. 

1271., 

1316. , 

135fi., 

1399.. 

t 

1*39.. 

1*79., 

1515,  , 

155?.. 

1507., 

1*22., 

U55., 

i 

UAH.. 

1719., 

1  T5o.  , 

1700.. 

1000., 

193*,, 

10**.. 

l 

1H90.. 

1915.. 

19*0,. 

1965.1 

1900,, 

20l 1 , • 

2033., 

i 

?055. . 

207*,, 

2097.; 

?117.. 

2136., 

2155. , 

217*., 

i 

2192.. 

2210.. 

2227., 

??**.• 

22*1.. 

2277., 

2293., 

i 

23*0.. 

2323.. 

2339., 

235?.. 

23*7., 

2300.. 

239*., 

l 

?*fi7 .  . 

2*20., 

2*33., 

2**6.. 

2*50.. 

2*70.. 

2*82,. 

\ 

7*93.. 

250*., 

251*., 

?52*.. 

2517., 

25*9./ 

OATA 

(FTIMElI 

.  5),  1*1 

•  90)  / 

09.. 

173., 

257., 

338.. 

*1».. 

*97,. 

57*.  , 

*49.1 

7»3.i 

795., 

865., 

1 

93*,. 

« on  1 . , 

10*7.. 

1131.. 

119*.. 

1255.. 

1315., 

1 

1373.. 

1  *3o. . 

1*9*., 

15*0.. 

1593,, 

16**.. 

1*9*., 

1 

17*1., 

1790., 

1936,. 

1991 . i 

19?5., 

1967., 

2000.) 

1 

21*».. 

2097., 

2125., 

21*2.. 

2197., 

2232., 

22*6.. 

l 

2299 . « 

2331., 

236?,. 

2392., 

2*22.  • 

2*50., 

2*78., 

1 

?so6., 

2533., 

2559., 

250*.. 

26*9., 

2633., 

2657,, 

l 

2*90., 

2703.. 

2725.. 

27*7.. 

27*0.1 

2709., 

2809., 

1 

2*29., 

29*9., 

2969.  , 

2387.1 

?»oS.. 

2923.. 

29*1., 

1 

?<.*«., 

2«75.. 

299 2., 

3009.1 

302*., 

30*0., 

3055,, 

3*71 ., 

3095., 

3100.  . 

311*,. 

31?*., 

31*2../ 

PATa 

(r1i«E(1 

,  *1,  1*1 

.9(1)  / 

103.. 

263.. 

302.. 

399., 

] 

*92.. 

595.. 

*75, • 

76*.  . 

051.. 

93*,. 

1019,. 

1 

Ilf... 

>1«0.. 

1259,. 

133*.. 

1*00.1 

1*91.. 

1552.; 

1 

1*21., 

1*96., 

175*.. 

1919.1 

1092., 

19*3.. 

2002.. 

1 

2060., 

2117.. 

2172., 

2225.. 

2277., 

2320.1 

2377., 

1 

2*25., 

2*7?.. 

2517,, 

2562.. 

2605,, 

2**7., 

2688., 

\ 

2727., 

27*6., 

290*.. 

29*1.. 

2077,, 

2912., 

29*6., 

1 

2990., 

1012., 

30*5., 

307*., 

31*7,, 

3136., 

1166,, 

1 

319*., 

1223., 

3250.. 

7277., 

3303., 

3329., 

3355., 

3390., 

3*0*., 

3*29.  . 

3*51., 

3*7*., 

3*97., 

3519., 

1 

35*1 ., 

35*2., 

3503 ,  i 

3*0*.. 

36?*.. 

3***., 

366*., 

1 

3*“3.. 

370?., 

3720,, 

3739.. 

3757., 

377*./ 

OATa 

I*1 IME(I 

.  7),  1.1 

.90)  / 

121.. 

219.. 

35*., 

*67,  , 

1 

579.. 

*97.. 

79*.  « 

099.1 

1001. • 

HOI.. 

1199., 

1295.. 

1399., 

1*91,. 

157].. 

1*59.. 

17*5.1 

1826.. 

1 

1911.. 

1991.. 

2069. > 

21*5.. 

2220,. 

2?92.. 

2363.. 

1 

2*32.. 

2*99., 

25*5., 

2*29.. 

2*91,. 

2751,. 

2810., 

1 

29*9,, 

292*.. 

2979., 

3032., 

30*3,, 

313*., 

3193., 

1 

3231 ., 

3279., 

312*.. 

3369., 

3*13., 

3*55., 

3*97., 

3539. , 

3579., 

3*17., 

365*.. 

3693., 

3730., 

3766., 

1 

39*2, . 

393*., 

397*., 

390*,, 

391*., 

39*9., 

*000., 

\ 

*031.. 

*051., 

*091 ., 

*120.i 

*1*0.. 

*177., 

*205., 

1 

•232., 

*259,, 

*295., 

*311.. 

*337,. 

*3*2., 

*396., 

\ 

**11., 

**3*« , 

*»57., 

»«80.i 

*5o3. , 

*525. ' 

data 

(F7I«E(I 

.  9).  1*1 

.90)  / 

'*2.. 

2*0,, 

*1*.. 

5*9., 

1 

*90»  • 

909,, 

93*. . 

l"57.i 

1170., 

129*., 

1*12.. 

1 

1525,, 

1537.. 

•7*5,. 

1952.1 

1956., 

2057., 

2157., 

1 

225* , ♦ 

23*9., 

?**?• • 

2532.. 

26?1.. 

2707., 

2791., 

1 

2973., 

295*., 

3032.) 

3100.1 

3102.. 

3255., 

3325., 

1 

339*., 

3**1 .. 

3527., 

3591., 

3653.1 

371*., 

377*., 

1 

3912., 

3999,, 

39**., 

3999., 

*052.. 

*10*., 

*155., 

1 

*205.. 

*25*., 

*30?.. 

*3*9,, 

*395., 

»**9.i 

***».. 

1 

*529, , 

*571., 

*613.. 

*65*. . 

**9* . • 

*73*.. 

♦773., 

1 

*912., 

*9*9,, 

♦907.1 

♦923.1 

*959., 

*99*., 

502*.. 

50*3.. 

509*., 

5129., 

5161.. 

5193,, 

5225.1 

5256., 

J 

5297., 

5319., 

53*9., 

5379,1 

5*67., 

5*3*,/ 

>» 


93 
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SUBPOiiTTNP 

PfiQTLP 

T5ACF 

coc 

6600  FTU 

V3.0-O261 

087*0  05/10/72 

04TA 

irtlMFd 

.  9) ,  1*1 

•  H0i  / 

165., 

3?4., 

*85., 

6*0., 

1 

7QP.* 

9») .. 

1084  .  , 

133',. 

1373,, 

1511.. 

16*7. . 

1 

1779.* 

1909., 

?020. * 

?  1  61 . * 

??42., 

2*0?., 

751*. . 

1?S 

1 

PA?? • * 

77*3., 

?45?., 

7959., 

3063,, 

316*., 

3263., 

1 

33AO.* 

■1*5*.. 

35*4., 

3438.1 

37?*., 

3410., 

3493., 

1 

397S.* 

*055.. 

*13?., 

*704., 

*7*3., 

*355., 

**26., 

1 

*«95.» 

*543. • 

*63o. « 

*495.. 

*759., 

*8??.. 

*843., 

1 

4943,* 

50"?.. 

5060. » 

5117., 

5173., 

5??*.. 

5281.. 

t  3* 

1 

S334 . • 

4384., 

5*37., 

4*44., 

5537., 

5584., 

5633., 

1 

SA«*n,* 

5726., 

S77?., 

8816, , 

5*40., 

5903., 

59*6., 

1 

59R8. t 

4030. , 

407?. , 

4113.. 

6143., 

619*., 

6233., 

1 

A?7?«  * 

431 1 ., 

43*9., 

4387., 

4*. * , , 

6*61./ 

OAT  4 

irriMCd 

.10).  I  a  1 

.*01  / 

193., 

341.. 

567., 

7*8., 

ns 

1 

9?7,  • 

IIP?.* 

1  ?7*.  , 

1**?., 

1648,, 

1370., 

1929., 

1 

?0A4,. 

2237., 

7387.  , 

3*33., 

2676,, 

2417., 

295*., 

1 

3.7  9V.* 

3??.i_. 

33*8,. 

3*7*., 

3597., 

3716,, 

343*.. 

1 

3948.* 

*040., 

*149.. 

*776,. 

*3*0., 

**62. » 

*581., 

1 

4678 , * 

*?73.. 

*864., 

*956.. 

50*5,, 

513?.. 

5217., 

!**> 

1 

S30ft.* 

53“?.. 

5*6?., 

55*1., 

5614., 

5693,, 

5767., 

1 

f«4A.* 

491?., 

59*?.. 

6051., 

6119., 

61*4., 

6252.. 

l 

'31*, , 

4380., 

4**?., 

650*., 

656*., 

»6?1,, 

468?.. 

1 

6739.. 

4  7  94. . 

6853., 

6909., 

694*,, 

7019., 

7073., 

1 

71 ?7 •  • 

7180., 

7733 .  * 

77*4.. 

7336., 

73*7., 

7*37., 

14S 

1 

74 AS  * • 

7535.. 

7481.. 

7631.. 

7678., 

7??*./ 

I'aU 

iF'nrn 

.11).  I«1 

,«PI  / 

736., 

**8, , 

664,, 

6P0  .  , 

1 

lr*9l  .* 

l ?9  7. « 

1500.* 

1694,, 

1*9*,, 

?065, , 

2273.. 

1 

?4S7 . • 

7437.. 

?81*.» 

7887.. 

3157., 

3323., 

3*86., 

1 

3S4S , • 

3401 

3953 fc  , 

*10?, , 

*2*8., 

*390., 

*530., 

\ 

♦AS**. 

*799., 

*939., 

5057, , 

51*1., 

5303., 

5*22., 

\ 

SS3«,. 

445?.. 

5763., 

487?., 

5979., 

6093., 

4186.. 

\ 

A?PA^  * 

4385., 

4*8?,. 

4577,, 

4670., 

674?,, 

6653., 

1 

694?.* 

70?5, , 

7115.. 

7199,, 

7?*?., 

735*., 

T***., 

1 

75?3.» 

7401  .. 

747",, 

7753., 

7B?9 , , 

790*,, 

7978.. 

iss 

1 

H05K. 

?1?*.. 

8194.. 

4747., 

3337., 

8*07,, 

8*76., 

1 

8544  ,  t 

4611.. 

*677., 

87*3,. 

68o4, , 

847?., 

4936.. 

1 

«99A. * 

4000., 

91??.. 

9182. » 

9?*?., 

9301./ 

DATA 

{PTi«r ( | 

,l?i.  »*1 

.801  / 

765., 

6?*.. 

7*0., 

1031., 

1 

1278,* 

1 5?y . . 

175*., 

1931,. 

???i.. 

?**5, , 

2667., 

1  M 

t 

2AA3., 

3096.. 

3303., 

3507., 

3To,-,, 

3903., 

*095., 

1 

42«3,* 

**  57  .  , 

*4*7., 

*473.. 

♦994., 

^16*., 

5329.. 

1 

S49n.* 

44*8,. 

580?., 

595*.. 

61o.’,, 

6?*6., 

6384.. 

1 

AS?fr,* 

464?., 

4794., 

4925., 

704?., 

7177., 

7301., 

1 

74P1 

75*0.. 

7454., 

777)., 

704*,, 

7995,, 

*10*.. 

is* 

«?1 ?• * 

4317., 

«»?<.. 

«423., 

64?*,, 

*72*., 

4873., 

1 

«9?1  ,, 

0014., 

9114., 

9711., 

9,o5., 

9399., 

9*9?,, 

1 

9SR4  ,  « 

9675.. 

4764,, 

9853., 

99*1., 

too?*.. 

1011*., 

1 

1  nfcnfi.  * 

10?«*.» 

10367., 

10*50.. 

10531., 

1061?., 

10692,, 

1 

10771  •« 

1 08*9,. 

10937., 

11003., 

11079., 

1 J 1 53,  / 

170 

PATA 

{PTIM^d 

,13).  1*1 

,80)  / 

313.. 

619,, 

9??., 

1218., 

1 

isio.  • 

.797.. 

7079,. 

?355.. 

26?7, , 

2*93.. 

3156. , 

1 

141?.. 

3645,. 

3911,, 

*15*., 

*391., 

*625., 

*85,., 

\ 

S077,. 

5394., 

5511., 

5720., 

5976., 

61 ?7, , 

632*., 

1 

6516.* 

4706.. 

6*9o.» 

707?,. 

72*9, , 

7*23., 

7592,, 

ns 

1 

7759. * 

79??., 

*08?,, 

*?39, , 

8393., 

85**.. 

8693., 

1 

8840  .  * 

499*., 

9135., 

9?65. , 

9*"?., 

9536.. 

9669., 

1 

99r»i .  « 

9931.. 

IOOM,. 

101*9,, 

10317., 

1 09*3, « 

10568., 

1 

1069?., 

10815.. 

10934., 

host.. 

11176., 

1 1 ?9*, , 

11*10., 

1 

1  IS?*.* 

116*0., 

11753., 

11465.. 

11977,, 

12087., 

12196., 

1  A* 

t 

12104.. 

1?*11.. 

17517., 

1 26??#  * 

1?T?6., 

12429., 

12931., 

1 

1303?. . 

1313?., 

1 3?3o«, 

13338, , 

13*?*., 

13519,/ 

Data 

(FTIMCM 

,1*1.  1*1 

.*0)  / 

373.. 

739., 

1100., 

1*5*., 

1 

i«n.* 

?1*5.. 

7*83. . 

?*13.. 

3139., 

3*54., 

3773.. 

94 
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VI«O0llTINt 

P4HTIP  T9ACF 

coc 

6600  ftn 

V3. 0-9261 

opt*o  o 

1  *090.. 

*393., 

*670., 

*970., 

5255., 

5536., 

5610., 

1*5 

1  /.o8o,, 

03*3., 

6602., 

695*., 

71 02, , 

73**., 

7582.. 

1  7915.. 

90*1., 

8267,, 

9*9*. | 

87o 1 , , 

0.912., 

9118., 

1  9321.. 

9519., 

971*., 

9905.. 

10093.. 

10278., 

10*60., 

l  io6.ia., 

10»1».. 

1098"., 

11161.. 

11332., 

1  1503., 

11671., 

1  11839., 

12005., 

12171., 

12313., 

12*9*., 

1265*,, 

12813.. 

l  12969., 

13125., 

13279., 

13*32.. 

135*3., 

13733.. 

13661., 

1  1*029.. 

1*175.. 

1*320., 

1**63., 

1 46o6, , 

1*7*7., 

1*666., 

1  150?7., 

15165.. 

15301 .. 

15*37., 

15571., 

1570*., 

15635., 

i  15955., 

1609»., 

16221., 

163*6., 

16*70,. 

18592./ 

DATA  (FTIME 

1.15).  7*1 

.80)  / 

**5, » 

§82., 

1313.. 

1736., 

195 

i  215*.. 

756*.. 

2969,. 

3363., 

375*.. 

«136.» 

*513.. 

*  *862.. 

57*5.. 

560)., 

5951., 

6293, , 

6631.. 

6960.. 

1  7215.. 

7602., 

791*., 

"215.. 

«Sl7., 

6809., 

9096.. 

1  917  7. . 

965*., 

992*,, 

10190., 

10*50., 

10707., 

10957., 

1  1120*.. 

11***.. 

1 1 68o . « 

11911., 

12140, » 

12366., 

1259J., 

?00 

1  12815.. 

13037., 

13257., 

13*79., 

13692,, 

13907., 

1*120.. 

1  1*331.. 

1*539,, 

1*7*7., 

1*95?., 

t5195.. 

15357., 

15557., 

1  15755., 

1*952.. 

161*9., 

163*2., 

1651*.. 

16725., 

16915., 

1  1710*.. 

17291., 

17*75.4 

17661., 

178**.. 

1 8025# , 

18205., 

1  193**.. 

1*551.. 

19737., 

1*911., 

19083., 

1925*., 

19*22., 

70S 

1  19509., 

1975*.. 

19917., 

20077.. 

20215., 

20391./ 

i)*Ta  (FflMr 

(I. 1*1.  1*1 

,901  / 

538., 

1067., 

1590.. 

2103.. 

1  2610.. 

3107.. 

1597.. 

*fl78.» 

*552.. 

5*17. • 

5*75.. 

1  592*., 

0367.. 

6900. ♦ 

7227.. 

76**., 

8*56. , 

8*58.  . 

i  eas*.. 

92*1., 

9622., 

9995,, 

10361,, 

10718,, 

11070.. 

>1" 

1  11*15., 

1175*., 

1208*., 

12*09., 

12727., 

130*1., 

13350., 

1  13650., 

13956,, 

1*25*., 

1*5*8., 

1***1., 

15130., 

15*16., 

1  15702.. 

1*995., 

16265., 

165*3.. 

16819., 

17092., 

17363., 

1  17*32., 

17999,, 

1816*., 

18*27,. 

16688,, 

189*8., 

19206.. 

1  19*67,, 

19717., 

199*0 • , 

20221,, 

20*71., 

20720., 

20967., 

215 

1  21212.. 

21*56., 

21699.. 

21939.. 

22177., 

22*1*.. 

226*9., 

1  22897., 

23113.. 

233*1.. 

23568,. 

73792., 

2*01*.. 

2*233., 

1  2**59, , 

2*6*3.. 

2*973,, 

250*0.  , 

25285.. 

25*85./ 

pata  (rTtnf 

(1.17),  1. 

,»0)  / 

662,, 

1313., 

1957,, 

2589., 

I  321*.» 

*92*,. 

*»33., 

5027,. 

5613.. 

6167., 

675*.. 

22b 

1  7309.. 

7957.. 

"19*., 

8923.* 

9**0.. 

99*6,  . 

10***.. 

1  1  '*932,  « 

11*10.. 

11990., 

123*1., 

12795., 

13739., 

13678.. 

1  1*110.. 

1*539.. 

1*960,, 

15377,. 

1579*., 

16195., 

16595,, 

1  1*999., 

17379.. 

1776*., 

181**.. 

18570.. 

18993., 

19263., 

1  19*30., 

19995.. 

2035*., 

20716.. 

21073,, 

21*29., 

21782., 

P?* 

1  22133.. 

22*51 ., 

22929., 

7117*,, 

23517,, 

23859,, 

2*199., 

1  2*537., 

2*87*., 

25209., 

755*2., 

75873., 

26703., 

26531.. 

1  2095*.. 

27190., 

27501  ., 

778J9,. 

2*1 36, , 

26*50.. 

28761., 

1  290*9.. 

29375.. 

29577., 

29976., 

30271,, 

30563., 

30950.. 

1  31135.. 

31*1*.. 

31699., 

31959, ♦ 

32273.. 

32*85./ 

21a 

OATa  (FT|Hf 

(1.18),  I* 

,80)  / 

*2: 

1630,. 

7*26, , 

3207.. 

1  3«79. t 

*716. • 

5*8*. » 

6219.. 

69,6. , 

7660.* 

8367.  . 

1  90*1., 

97*7.. 

10*21.. 

11088., 

117*3.. 

12190. . 

13026., 

1  13093.. 

1*770.. 

1*879,, 

15*7*,. 

16063.. 

16639. , 

172)9., 

1  17767,. 

193?*., 

18975,. 

19*09., 

199*0,, 

20*65., 

20961., 

735 

1  21*91., 

21993., 

22**1, » 

22980.. 

23*67., 

23951,, 

2**32,. 

1  2*910., 

25396,, 

25859., 

26331.. 

26600., 

27268.. 

27733,. 

1  29197,, 

29659.. 

29119., 

29577., 

3001*., 

30*89., 

309*1., 

1  11392., 

318*1., 

32287.. 

32731,. 

33173., 

33613.. 

3*050.. 

t  3**9*. , 

3*91*,, 

353*2.. 

35768.. 

16187., 

1660*,. 

17017., 

?♦* 

1  37*75., 

37929., 

3*228., 

3*625.. 

39012., 

39396., 

39773.. 

i  «o;**., 

*0511 .. 

*097o,» 

*12??.. 

*1567., 

*190*./ 

DATA  (TTIMF (1,19) #  / 

105*.. 

2096., 

3131.. 

*153., 

X  5UG,t 

6U4.» 

7151.. 

*123. « 

906*., 

10029,. 

1096*.. 

1  11**7. t 

1?790.t 

13691., 

1*56*,. 

15*30., 

16285., 

1712*.. 

95 


Table  A-3  (Continued) 


Table  A-3  (Continued) 


4RTLP  'RAC E 


1TA530., 

1*0279,. 

lB597r. 

1M3TSS 

219161 ,« 

22*536. 

25115*., 

256*52.. 

261733. 

297*05,, 

29291*., 

297996, 

32256*. , 

327303.. 

311957. 

35*001 ., 

35«2*2,« 

162317. 

391126., 

3RASB5., 

3*7915. 

A0290B. , 

*05677., 

*0*27?, 

OATA  (FTIME(I,?5)t  1. 1,110)  / 

71952. t 

0*000.* 

99932. 

167322,, 

160372.. 

1932*7, 

255*30.. 

257106., 

•9216. 

335973.. 

3*6999., 

357917. 

*11110.1 

*21*26., 

*31673. 

*82156., 

*921*3., 

502069. 

550660,. 

5600*3., 

569*1*. 

61*006,. 

6224*7.. 

630767 , 

669527 • « 

67666* , , 

6*3636, 

71S2P6., 

720905,, 

726350, 

750593., 

75**20.. 

75*09* , 

CDC 

6600  FTN 

V3.0-P261  OPT-O 

19162*,, 

197223., 

2027**., 

20*281, , 

229*7*,, 

23*20*,, 

2*0530.. 

2*50*7,, 

26T000., 

2722*3,, 

277*65., 

2*2649,, 

301010., 

3079*9., 

312905., 

317773., 

336551., 

3*1055., 

3*5*92., 

3*9*27., 

366276,, 

17015*., 

373910, , 

377581., 

39115*., 

39*270., 

39T?9* . , 

*001*9., 

*117*1,, 

*1312*.. 

*15395./ 

1*555,. 

29019., 

*3*21., 

57730.. 

113691.. 

12733*.. 

1*0*02., 

15*152.. 

206001,, 

21*573., 

231022,, 

2*320*. , 

290*5*,, 

3>  2361,, 

31  3669., 

32**75.. 

36*761., 

379**7,, 

190133.. 

*0066*., 

**1**0., 

*51970., 

*62065, . 

*72133.. 

5119*7., 

5217*7., 

531**3., 

5*1111., 

57*595,, 

5*76*1,, 

596597, , 

605395., 

63*907,, 

6*6*30., 

63*603., 

6621*5., 

69035*., 

696912., 

703210.. 

709337., 

7316?*, , 

736652., 

7*1313.. 

7*6132., 

7627*7,, 

766**5., 

76995*./ 

05/10/72 


1T.3A.2A 


clwc  «  cact-acbi  /  float  <nlvl-m 
cloht  *  »c» 
oo  io«  ia  «  l.  nlvl 

alta  *  o.'t  *  xox  «  o.o  j  \o<  •  o.o 

GO  TO  IPO .  AO,  12(1.  1001*  BOAT 


«IND  DATA  ARE  GIVEN  BY  ALTITUDE  CMETERS1  AND  *  AND  Y  (mETERS/SEC) 
COMPONENTS 

20  CXA  •  o*  « 1 >  A  OVA  »  OY II) 

00  1C  IB  »  1*  NVINO 

ALTB  >  ALTlIBt  %  OXB  *  OX ( IB)  S  OTB  *  OT(IB) 

IF  <CLOMT  .LT.  ALTB)  00  To  lio 
XOX  «  XOX  •  .A»IALTB-ALTA)*(OXA*nxBI 
YOY  *  TOY  *  ,S*IALTB.ALTA1*:0YA«0YB) 

»LTA  «  ALTB  *  OXA  *  OXB  S  OYA  ■  0Y9 
10  CONTINUE 
10  TO  ISO 


•INO  DATA  ABE  OIVEN  IN  ¥£ATmER  BUREAU  FORMAT-- COMPASS  DIRECTION 
.  COX)  AND  SPEFO  COY  IN  H/SFC)  AT  SPECIFIC  ELEVATIONS 
SO  OXA  *  0,0  1  OYA  ■  0.0 

IF  (OX(l)  .ED.  20.1  GO  TO  To 
TANG  «  PAD  •  (PX(ll«B.O) 

OXA  »  SIN  C  T  AND  »  OYCl)  V  OYA  «  COSCTANG)  •  OY 1 1  ) 

TO  00  90  IB  «  It  NBIND 
ALTCIB)  •  ELEV I  IB) 

ALTB  *  ELEVCIR)  %  OXB  r  0.0  S  OYB  ■  0.0 
IF  COXlJB)  .EO.  2«.)  00  TO  BO 
TA«G  «  RAO  •  (DXCIBItB.O) 

OXH  *  $ I N  C  T  A  NO )  ♦  OY ( IB)  S  "VB  »  CDSCTANo)  ®  OY  *  Ip) 

00  IF  (CLOHT  ,LT,  ALTB)  00  TO  1A0 

XOX  »  XOX  ♦  .S»(ALTH-ALTAI«IOXAtOXB) 

TOY  >  YOY  ♦  .5-CALTB-ALTAl-COYAtOYBI 
AlTA  -  ALTH  S  OXA  «  OXB  S  OYA  m  OYB 
BO  CONTINUE 
*.0  '  15)1 

VINO  DATA  ABE  OIVEN  IN  SECOND  FEATHER  BUREAU  FORMAT. -DIRECTION  IN 
0EGOEE1  C1.DCFVISE  FROM  NORTH  COX)  ANn  SPEED  IN  M/SEC  COT)  AT 
SPECtFIC  ELEVATIONS 
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SlIHROIlTl'IE 


37n 


975 


79n 


385 


SR" 


395 


♦  no 


*os 


*!■> 


*15 


*29 


*?S 


P^" 


SPSgiPplIliSllllip 


Table  A-3  (Concluded) 


PAPTl0  1RACE  CDC  MOO  FTN  V3.6*P26l  OPT«0  05/10/72  17,36.2* 

100  *LT(11  «  0.0  3  RON  *  0*174533  »  (DX(HM»n.l 

0X4  x  SIN(RON)  •  07(11  *  07*  »  COS (RON)  •  07(1) 

00  llo  to  «  2.  N4IN0 

*LT  ( !R)  «  FlEVPllR)  S  *1.79  »  ELEV2 ( I B > 

RO«  *  .017*533  •  (OX ( IB) *190.) 

OXH  >  SIN(RON)  •  07(191  *  079  *  COS(RDN)  •  OY(IR) 

IF  ( ClOHT  ,(.7.  *1.79)  30  TO  1*0 
XOX  s  XOX  *  0,6®(ALTR-*ITA)*(OX»,OX9I 
707  *  707  .  0.5»(*LT9-*LTAI»(07**079I 
«Lt*  x  *tT9  (.  OX*  «  0X9  $  07*  «  07B 

11"  CONTINUE 
GO  TO  l>.fl 
C 

C  WIND  0*7*  ARE  3IYEN  MY  ALTITUDE  (FEET)*  SPEED  (FT/SEC).  AND 
C  OTHECTION  (DEGREES  CLOCKWISE  FROM  NORTH) 

120  HON  »  .017*533  •  (07(11.190,1 
OX*  *  ,30*9  •  51NIH0N)  •  n* { 1 1 

07*  *  ,30*9  •  COS(RON)  •  0X(1) 

00  130  J9  «  1 ,  NW1N0 

*LT9  >  ,3o*9  •  ALT(IR)  *  RON  »  ,017*533  •  (07 ( 19) *190, ) 

0X9  x  ,30*9  .  91N(R0N)  •  OX ( 19) 

079  x  ,30*F  •  COS  (RON)  •  11X119) 

IF  (CLOMT  ,lT.  ALIO)  GO  TO  1*0 

XOX  »  XOX  ♦  .S*(*LTH-*LTA)»(OXA.nxt)| 

707  »  707  ♦  .S»(»LT9-»LTA)»(07*.079) 

ALT  *  *  ALT9  %  OX*  »  OXH  *  074  •  DVR 

1  So  CONTINUE 
GO  TO  159 

1*0  FPAC  »  (CLOHT. ALTA)  /  (ALT9-»lTA) 

0X9  <  OX*  ♦  F9*C»(OX9-OX4)  t  079  »  074  »  FRAC* ! 079-97 A ) 

ISO  XOX  «  XOX  .  ,3*(CL0mT-ALT»).(0X.A*0X3) 

707  >  737  .  .5®(CL0HT-ALT4|«(07A*DT8t 

50  *  CLOHT  /  500- 

FR*C  *  (CLOHT. FLOAT (50) *500.1  /  500. 

XOX  «  XOX  /  CLOHT  S  707  «  707  /  CLOHT  ' 

00  190  IK  s  1,  25,  KPAR 

FTT  *7 ( 19? I  A)  x  FT IHE (53, T9)  .  FRAC® (FTIHE (KO* 1 . T9) -FT I«F IKD. 1 9) ) 

XTA7I 19, (A)  *  XOX  •  FTT AY (T9, IA) 

YTA7 ( 18, T* )  *  707  •  FTTAY ( 19, Jft) 

1  30T*7(IB,IA)  *  S3RT(XT»7(1H,IA)*»7  »  7TA7 ( JR. I*) ®»2) 

IF  (FTTAYtIP.TA)  .  TS«  , GK.  TRHAX)  GO  TO  It" 

IF  (FTTATUH.IAl  ,GE.  IRA)  GO  TO  155 
PT  »  RHIN  «  R*T*®FTT47(I9,1A) 

GO  Tl)  171 

I5S  9T  x  RHIN  .  W*TI0®FTTA7(I9,|a) 

GO  TO  17" 

160  NT  *  RHAX 

179  R0T»7(19,H)  «  RT 

189  CONTINUE 

CLOHT  *  CLOHI  .  CLOINC 
KC  *  25  -  KPAR 

XT47(26,IA1  «  2.0®*T*1(25,IA)  -  XT»7(KC«I*) 

TT47 ( 2A» 14)  *  ?.0®7T47(S9t!A)  -  VTA7(KC»I*) 

GOTATI26.I*)  «  2,(l®r,nT»7(2K,!*)  -  GOTATtFC.TA) 

FTTA7 (26,1*1  *  FTTA7(?5,I*) 

R0IA7 (26, T A)  x  RT 

1 90  CONTINUE 
RETURN 
END 
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Table  A-4 

SUBROUTINE  INTENS 


SUHPOUTISF  » VTI;*rf5  TDaC? 

SUHPOUTlNE  IVTfMS 


CDC  6»00  FTM  V3.n*P2M  OPT»J  05/10 /T2  17,36.20, 


c  SUHPOUT!^  TO  COMPUTE  TH£  FALLOUT  INTENSITIES  IDPAY)  AT  KEY  POINTS 

,c~ /40R4r/  :*“!'»•*«  •««•**.*>»  .oo«»y(26.?3,  , 

i  FTRAY(26,23),P0RAY126,231,DPATS4)26»?3)# 

3  MLVL.OISMAX.OISM JN.KPAP, K A, X 8, NP AO 

3  /SCOTCH/  5^'^!^';VT*Y(26,23).30T*Y(26,23).rmY(26,23). 

POTAY ( to, 23) lOTAY 1 2»,23) .uDOAy 1 26,23) , 

0  /ruriAtj  9P*TS8,?**?3l  ♦«0C>6I  ,0UM(5102)  ' 

0  /THOAT/  V,  ALW.  TlTLflS),  )ljmjt 

A  *CB,*CTlP,'TS*«MAT.  'SPfT»MA»*PAT?0*T»A,RATA 

0  /EOOPAy/  «LP(?6,2),YL«126,2i,lLR(P6,»>  m*»pata 

DIMENSION  P£0CMT(P6)  *»ILP(-*.». 

(OATA  (PEPCNTU)  .1*1,26)  /  3..02,  3..02S,  3*.03,  3..03S,  3*.0A. 

7#,0%  #065  / 

£srce«/ev  ,,o,vts  ‘,™  covsfo^fi^ 

OLAYEP  I’o.OTTSE^r*'!;1.  FLOAUKPAP)  ,**A*v*LVl’ 

OCON  .  10000,  *  M**. 333333  f  OSTP  .  DCDn  .  TSP 

nrsMiN  •  io.oe*12  t  oisma*  *  o. 

00  50  IA  *  1,  NLVL 
IP  (AUM  .(IT,  3,31  00  TO  10 

GO  *  (■1.R5  -  ,03»alm)  •  30TAY ( 1 ,  TA)  t  on  rn  »n 

an  faf’  *'  •03-.OOATA6.ALW)  •  OOTAru.IA) 

20  FAC  •  0.5  |  lTtHE  •  0 

00  *0  19  «  1.  25.  KP4P 

r:,:  :«?.  ,i,  >• 

0R4T  a  IOCOM/(TSP.FTTAYIIH.1AI))..0,36 
IF  10PAT  .IT.  2,0)  09AT  <  1.0  ♦  O.S.nnAT 
5  IF  (FTTAY t 19, IA) »TSP  .LT.  TLIMIT)  00  TO  35  t  ITTMF  *  1 

SASXY  *  (TUMIT  -  FTTAYU8.KPAP.IA)  .  TSP)  / 

'  „  (FTTAYU9.IAI  -  FTTAYI  IB-KPAP.IA)  ) 

TOOS  »  0T4YU9.KPARUAI..I  (  SASXY- 1  ,  ,»/S4SXY> 

IF  (AVEOOS  ,3T.  TOOS)  AVEOOS  »  TOOS 

XTfMD  s  X  T  a  Y  (  I9«<PAP,  I  A)  »  SASXY*  I XTAY  ( 19,  I .  I -XTAY  (  T9.*DaB.  T»l  1 

IF  (OISmax  ,LT,  3IS01  OISMAX  >  0150 
if  oismii  .ot.  oiso)  oismjm  *  ojso 

J-I  AVEOOS  «  .5  •  OTayub-kpaPuai 
35  nTAY(ia.IA)  *  AVEOOS  •  OPAT 

IF  (OTAY) I9.TA)  .LT.  OMI)  00  TO  10 

•-T  ?^.;s2ra:l5!3?%l-:  j™  ‘^•ia-ytayub.ia, 
if  (DISMIM  ,3r,  otso)  oismiv  *  niso 

ll  *  ’R4T  ’  r'°  * 

OTAy 126. IA)  *  1,0 


itime  »  i 


r*rt *>.»_ 


Table  A-4  (Continued) 


S'lRROOTINF  INTENS  TRACE  COC  6600  FTN  V3.0*°261  ORT*0  05/10/72  17,30.2*. 

tF  (l)TAY(7S,IA;  .LT.2.31  0f»Y126.IA>  »  .5*0TAY(?5.IA> 

S"  CONTHMF 
C 

<:  establish  hatial  oistancfs 

0«  OIS'tAX  «  SOOT  (ntSHA«)  ♦  RHAX  ♦  OISHIN  •  SORT (0!S*1N1 

oismp  «  oisma*  -  oismI’j  s  Rpm  ■  oismin 

COS  s  -.1 37543*7 LO AT ( KBAR) 

1)0  O0  IA  *  7«  NP4R 

RlXIA’  *  OISHIN  »  01SMR*l","**(C0N*FL0AT  INP4R-TA)  ) 

OS  0"  CONTINUE 


70 


75 


00 


RS 


00 


OS 


100 


105 


110 


C  COMPUTE  VALUES  FOR  oi.l  »AOIAL  POINTS 
00  ?00  IA  »  1.  NtVL 

IF  (R!M1>  .r.T.  .333*1', OIAYO  .IAI)  00  TO  70 

DRAY ( 1 f I A)  *  2,0  •  OTAY(l.tA)  •  R0I1)  /  G0T*Y(1,IAI 

00  TO  An 

70  0R4V  (1  «  I A )  s  (.ASA  ♦  (  (  ,5,u0 1 1 ) -.  V  666*GDTAY  ( 1  ,  I A )  )  /r.OTAY  ( 1  •  I A ) ) )  • 
1  DTAT(I.IA) 

so  UDRAY(t.lA)  *  ORAY(l.IA)  *  PRO  *  00(1)  /  OOTAY  1 1 , 1 A) 

*P»Y(1.IA|  x  XTAY  ( 1  ,  I  A)  •  POO  «  OOATSAII.IA)  *  ORATSSMflA) 

VRAY  f 1  *  I  A)  s  YTAY(l.IA)  •  PRO  *  GORAYtl.IA)  *  R0(1) 

BOOAY(l.IA)  *  RSIN  ♦  PPOPlROTAYtMlA^RHINl 
FTRAYM.IA)  =  FTTAYfl.IA)  •  PRO 

X  A  *  XOAYI 1  a IA)  S  TA  *  YRAY(I.IA)  «  IT  *  1 

PTOA  a  DRAYII.IA)  *  OTA  •  CORAYll.IA)  t  FTA  •  FTRAY ( 1 • I A ) 

ORTA  *  OBATSA(I.IA)  f  0"A  •  OORaY(I.IA)  0  IF*Af>  x  0 

C  OFTEOMI'IE  VAL'JFS  at  RADIAL  POINTS  2  THRU  26 
00  750  IP  *  2.  NSAP 

COSO  *  ROUP)  •  RO(IH)  S  IF  (TEND  .FO.  1)  GO  TO  iRO 
100  XY5P  *  XTAY(II.I0)*XTAY(IT,I6)  .  YTAY I  IT, IA) *YTAY ( IT* IA) 

if  fxvso  .lt.  roso'  r.o  to  iso  s  otor  •  oTayutma) 

IF  ( X A  , EG.  XTAY ( IT, IA) )  00  TO  13" 

IF  (YA  .FO.  YTAY(IT.IAl)  GO  TO  1*0 

S  »  (YTAY(TT.ia)  .  YA)  /  <XTAYIITtIA)  -  XA) 

Yl)  *  YA  -  S*X A  J  S'  *  5*5  ♦  )."  *  SYO  •  S  »  YP  /  Si 

XT  *  SOHT(SyO*SYO  -  <YO*YO-POSO)/S1)  *  Xl  ■  -SYO  •  XT 

IF  («A  « GT «  XtaY(JT.IA))  00  TO  110 

IF  (XI  ,LT-  XA)  X)  *  -SYO  -  XI  S  GO  TO  120 

110  IF  (X)  , GT ,  XA)  XI  *  -SYO  -  XT 

120  Yl  a  YO  ♦  S*X1 

SASXY  «  SORT ( ( (Xl-XA) *•£  •  (Y)-YA)**2I  /  ( ( XT AY f IT • I  A) -XA) **2  ♦ 

1  (YTAY(IT*IA)-YA)**7) ) 

GO  TO  16" 

F* 

C  LINE  13  PARALLEL  to  Y  AXIS 

130  X 1  *  X  A  *  Yl  *  SORT (ROSO-X!*XI ) 

IF  (YA  .GT,  YTAY(IT.TA))  Y’  *  -Yl 

SASXY  *  (Yl-YA)  /  (YTAY(IT.IA)-YA)  S  GO  TO  lfO 

C 

C  t-INF  IS  PARALLFL  TO  X  AXIS 

140  Yl  »  YA  X  XI  »  SORT ( RDS0-Y1 *Y1 ) 

IF  (XA  .GT.  XTAY(ITtlA) )  X)  •  -XI 

SASXY  »  (Xl-XA)  /  (XTAY! IT, IAI-XA)  S  GO  TO  16" 
f 


100 


Table  A-4  (Concluded) 


subroutine 


INTENS  T94CE  COC  6608  FTN  V3.0-P2M  OPTaO  05/10/72  17,36.24. 

R40I4C  POINT  I?  FARTHER  THAN  CURPEN.  PARTtCLE  POINT,  INCREMENT 
PARTICLE  POINT  AND  UP04TE  VARlARLES 
15"  IP  (IT  .EO.  25)  30  TO  180 

X4  a  XTAY(IT.IA)  5  Y4  •  YTAYIIT.IAI 
0T04  *  DTAYdf.IA)  t  RTA  •  B0T4Y ( IT*!A) 

0RT4  a  f)R4TS8(IT,I4)  (  (104  a  GDT4Y  {IT*  T  A  ) 

FT4  «  FTT4Y(IT.I4)  5  IT  »  IT  «  KP4R  t  (10  TO  100 

«1  4N0  Y1  HAVE  SEEN  DETERMINER,  COMPUTE  OTHER  PARAMETERS. 

160  ORAYlIR.fA)  a  OTDA«« ( 1 ,0-SASXY I  •  OTOB»» (S45XY) 

XRAY(IR.IA)  *  Xl  *  YRAY(INtlA)  •  Yl 
ORATSA(HtlA)  a  ORTA  «  SASXY*  (ORATSp  ( IT«  I A )  .DOT*) 

RORAYUR.Hl  ■  QU  ♦  SA5XY»(«0TAY(IT»IAi.RTA) 

ETRAYlIR.tA)  >  ETA  ♦  SASXY* (F TTAY ( I T « I  A) «FTA ) 

OORAY ( 18, t4l  *  30A  ♦  S4SXY»(fiOTAY( ITl 141 -BOA) 

'JORAYIIR.IAI  a  ORAYIIR.IA) 

*A  «  Xl  S  YA  *  Yl  %  OTDA  ■  ORAY(IBiIA) 

RT4  •  PRRAY ( TR, I  A)  J  ORTA  a  ORAISA f IB» t A ) 

004  «  G0B4Y(1r,I4)  5  FTA  a  FTRAY  f 18* IA)  %  00  TO  250 

.  Particle  points  exhausted,  finish  up  with  radial  points 

ISO  IENO  a  1  5  ORAY(IB.IA)  »  1,0 

.  IF  lORAYlIB-I.IA)  ,r,T.  2,0)  SO  TO  1  85 
no  ORAYIIR.IAI  *  .5  •  004YIIR-1.IA) 

IPS  IF  <XA  ,E0.  XTAY(25,IA)I  GO  To  ??A 


IP 

i  Y  A 

.ED. 

YTAYI25. 

I  A)  1  GO 

TO 

?30 

XT 

«  S<m<$YO»$YO  - 

( YO*YO-l 

BOSOl/Sl 

IP 

(  X  4 

.GT. 

XTAYIIT. 

I A 1  1  GO 

rn 

IP 

1X1 

.LT. 

X4)  Xl  * 

-SYO  - 

XT 

% 

IP 

(X] 

,GT. 

XA)  Xl  a 

-SYO  - 

XT 

Yl 

a  YO 

♦  S' 

•Xl  s 

GO  TO 

?40 

5  Xl  • 

80  TO  ?10 


-sro  .  xt 


RORAY(IB.TA)  u  P0TAY(2S<:AI 


Yl  *  SOP-IROSa  -  Xl»Xll 

’F  Y t  .OT.  YTAYIIT.IA))  Y)  a  .Yl  $  GO  TO  2A0 
-30  -,.PT  )ODSO.YJ  ay  1  1 

1*4  ,GT,  *TAY(IT,IA) )  X)  a  -Xl 
•<’.  <3AY(IR,I41  «  xl  S  YR4Y(IP,IA|  a  Yl 

DRATSAIIB. IA)  .  DR*TSB(25,  I A  >  S  RORAY(IH.JA)  u  BQTAYI?-;.' 

FTR»Y(IR«IA)  *  FTT4Y(25«IA)  S  IJOPA  Y  ( IB  .  T  A '  a  DRAKlUrA) 
1EHH  «  S0DT((X|-XRAY(I6-1,I4)I»»2  ♦  (Yl-YRAY(IR-1,IA))**2) 
60R4Y(tP,I»)  a  3DR4Y ( 18-1 , 1A)  ♦  TEHR 
2So  CONTINUE 
P60  CONTINUE 

hooify  dray  ?o  account  f oh  overlapping  cloud  layers 

no  ?70  IA  «  I,  NLVL 
00  270  18  j  l,  NPAP 

X  a  XRAYIIR.IA)  5  Y  a  YR4Y(IR,IA1 

00  270  IC  a  1.  N;.VL 

IF  (IA  .60.  ICl  30  TO  270 

OISO*IXPAY (IS, ICl-X) E‘2. (YRAY (IB. IC)-Y)«»2 

OTFh  a  S<1RT((XRAY(I(,,ic1-X)**2  .  (YraY(I8,Ic>-Y1»»?) 

IF  IOTEH  .OT.  2. 0*RORAY ( IB. I A ) I  GO  TO  270 

TEMA  a  ORATSA(IR.IA)  •  OTE“  /  R0RAVC19.I41 

TERR  »  P.  *  IF  COTEM  «0T RMINI  90  TO  265 

TERR  a  .25  •  ( (RNIN-OTEM)/RMlN)aa(0RATSA(I8,IA)/6.0) 

?6S  ADOOSE  »  '(DRAy ( 18, IA)  •  ( . 7S«EXD ( -.5403 1 •TEMAOTFMA )  .  TENS) 
DRAY  113*  TCI *ORAY ( IB. IC)  ♦  ADOOSE 
270  CONTINUE 
PrTuI^ 

End 


-Ht. 


■ 7-^VfP*  l»' 


Table  A-5 

SUBROUTINE  LFTRT 


SuliAOl'T  I^'E  lFIhI  IhACE 

SUrPUOl  I  <£  LF  IRT 


COC  6600  P TM  93»0*p86l  OPT»0  05/09/72  15,13,21, 


10 


IS 


2p 


as 


JO 


JS 


*5 


S'1 


S5 


sudruuiin£  to  assign  clcio  level  surscripts  for  left  and  might 

SIPES  OP  PAllOJf  PATTERN 

cop’mgn  /array/  gray i 26.23) «xray (26 «23>  «yray i 24.231  >goray(26»23)  • 

1  PTkay (26v?3) (RpMAY (26*23) .DRaTSA (26*23) 1 

2  NLVL.01SMAX,DISMIN.KP»R.KA,K8.NPAR 

J  /EOGRAy/  «lH(26i2)  i  Y(.R(26*2)  ,ILR(26,2) 

PA) a  P12.PJ32.PIaI/l. 5707963.  4, 7123890.  6,2831853/ 

LOOP  PGR  EACH  PARTICLE  GROUP 
0(1  Vi.  IA  *  1«  nPAR 
ILA  »  1  J  IHA  A  1 

IhETAL  ,  «TAN;  (XRAY(IA,U,rMAY(|A,|)) 

IF  (IhEIaL  ,LT,  0.)  TnETAL  a  P1PI«Th£TAL 
TMETAR  *  ThETal 

LOOP-  POfl  Each  clOlj  lEyel 
00  ftv  18  •  2*  NLVL 

alpha  »  AT»N2(XRAY I 1A* 18) « yray ( I A , 1 6 ) ) 

IP  (ALPHA  ,LT,  0.)  (LPnA  «  P1PI  ♦  Alpha 

TES1  ON  LEU  SIDE  0(  PATTERN 
IP  llntlAL  .LI.  °I2)  GO  TO  10 

LEU  S13E  IS  dFlxcEN  Jbu  ANO  90  DEGREES 

If  (ALPHA  ,GI.  TH-TAL-PI2  .ANO.  ALPHA  ,LT,  THETAL)  GO  TO  30 
bo  TO  AO 


(10  TO  AO 


LEFT  SIDE  IS  BETaEER  90  ANO  0  DEGREES 
10  IF  (ALPHA  .LT.  PI2)  GO  TO  20 

If  (alpha  ,6T.  ThETaL*PI)2)  GO  TO  30 
2o  IF  (Alpha  .G£.  ThETal)  bo  TO  *0 
3d  ThETal  <  AL^hA  j  ILA  «  18  S  GO  TO  80 

TES1  l\  HIohI  (..IjE  CF  PATTERN 
IF  (IhETAR  ,3T.  PI 32)  bO  To  SO 

R IbH T  Sloe  'i  BETaEEN  0  ANO  270  DEGREES 

If  (alpha  ,Ll.  THE  Tah*P!2  .ANO.  ALPHA  ,GT.  THETARI  GO  TO  7o 
oO  TO  80 


HlbP)  SIDE  IS  HETaEEn  270  ANO  J60  OEGHEES 
SO  If  (ALPha  ,61.  PI32)  GO  TU  60 

10  (miPna.PJ3c  ,lT.  ThETAH)  GO  TO  70  t 


GO  70  60 


ALPHA  AND  THETAR  ARE  BETaEEN  270  AND  360  DEGREES 
60  IF  (ALPHA  ,l£,  THETARI  GO  TO  80 
7;  IhETAR  »  alpha  i  IRA  «  13 
KC  COMlNvE 

ILMIlAil)  «  1l*  S  ILR ( IA,2)  •  IRA 

Rj  LbNlINUE 
TU*N 
bNu 


102 


— 'S'V' 


»*  r  f  t-*  ■  'i\ ► 


V-.  ^'jot^E^w}' 


Table  A-6 

SUBROUTINE  EDGE 


SUBROUTINE  EOGE  TRACF. 

SUBROUTINE  LOSE 


COC  6600  FTN  V3.C-P261  OPT.O  0S/fr9/72  1S.13.21. 


SUBROUTINE  10  DEIEHmJNE  THE  LOCATIONS  OF  THr  PIVOT  POINTS  ON  T»F 
LEFT  AND  RIGHT  EDGES  Of  ThE  FALLOUT  PATTERN 

tORHUN  /EOGRAr/  M.RI26.2) .TLR126.2) .1LRI26.2) 

1  / ARRA 1 /  JRaT (26.23) iXRAY (26*23) .YRAT (26.23) i  jORAY (26*231 . 

2  r TRAY (26. 23) . MORAY (26.23) « OR ATSA (26*23) . 

3  NLVL.U1SNAA.0ISM1N.KPAH.KA .KB.NPAR 
Ul"L«SiON  «m(2) 

OAtA  M(U,HM(21  /  1.0  -l.fr  / 

00  1*0  16  «  l.  2 

..!»  a  NPAH  -  1 

UU  136  ) A  «  1.  NB 

(A  -  ILHlU.IUI  f  IY  *  jLRIlA.l.Ul) 

AA  •  ARAY ( I M 1 A )  S  YA  ■  TRAY ( I A  *  I  A ) 

AU  a  ARAYI1A-1.IV)  6  YB  «  YRAY I IA-1.IY) 

HUA  .  RpHAY ( 1A. IX)  •  1.1  S  ROB  •  HORAY(tA-l.lY)  •  1.1 
AT  «  C.  S  YT  *  fr. 


CHECK  IE  CURRENT  LEO  IS  PARALLEL  to  >  «A1S 
IF  (YA  .nE.  VB)  00  10  10 
A6  *  AA  S  AT  «  AB  t  »f  a  1.6 

IF  (AA  .GT.  AB)  RF  •  -1.0 

Y  6  a  >  A  *  HtlA-Rrt(  IH)  bRF  S  Y?  a  YP  ♦  RD8»RH  ( IB  I  »RF 
ASM'  *  |>.  »  KSLP  *0  S  ->3  TO  60 

lmlck  if  current  leg  is  parallel  to  y  aais 

.F  (AA  ,Nt.  Ad)  GO  To  20 
Y6  >  YA  A  YJ  a  Yf)  S  RF  a  1,11 

IF  (YA  ,LT.  Yd)  RF  a  -1.0 

-6  a  aA  .  H(jAaRn(  It))  aRF  1  A7  a  ah  *  R08*RH(  IB)  *RF 
ASl.P  *  fr.  »  KSLP  »  1  S  GO  TO  60 

CUHRLN I  LEG  IS  NOT  PARALLEL  To  EITHER  AXIS 
-SLR  «  (AA-AtM  /  (Yrt-YA)  1>  KSLP  »  1 
TO  a  (  Td-TA)  *-2  i  TM  a  50HIITU  /  ( TB- (XH-XAI o»2) ) 

RF  a  i .  n  IK  USLP  .LT.  0.)  GO  TO  30 

IF  (AU  ,lT.  a»)  RF  a  -1.0  »  00  TO  *0 

IF  (AU  .GT.  AA)  RF  a  -1,0 

A6  a  aA  .  TN*R0A*HH ( IB) *RF  )  Y6  a  YA  ♦  ASLP»(<6-AA) 

»T  •  »i  •  TH«ROdaRH(lB)aRF  S  V>  .  Y*  •  *SLP»(X7-*B) 

CONTINUE 

ASLP  a  0.  i  <SLP  a  fr  A  IF  UR  .EO.  X7)  00  TO  TO 

A5LR  a  (YH-YT)  /  (AH-A7)  J.  KSLP  ■  1 

IF  (la  .£U.  1)  03  TO  10J  %  IF  (KSLP  .EO,  0)  GO  TO  00 

»F  (KSlPA  ,Ei.  0)  Gil  (0  US  i  IF  (ASLP*  .EO.  *SLP)  GO  TO  10S 

AT  a  (YH-YA.Aa-aSlPA-AB-aSlP)  /  (ASlPA-a5lP) 

(T  a  Yft  .  -SLPA-IAT-Aa)  S  GO  TO  90 
IF  (KNLHA  .EO.  0)  GO  TO  li)S 

ATavU  i  vl  I  II.  ASLOAa ( xT-aa )  S  GO  TO  9o 


4* 

AT 

•  AA  > 

YT  •  YU 

♦  ASLP* 

( AT-XA 1 

«**» 

IF 

(Ab  .tQ. 

AA) 

30  ro 

*5 

IF 

( aS  , GT , 

XA 

•  and* 

(XA 

•or# 

AT 

• 

o 

X 

• 

XT 

.GT. 

X5) ) 

00 

TO 

10b 

IK 

(AS  .lt. 

AA 

•  and* 

(XA 

•  LT. 

AT 

o 

X 

• 

XT 

•  LT. 

XS)  ) 

00 

TO 

los 

GO 

TO  100 

V* 

IF 

Kb  .GT. 

YA 

•  AND  • 

(YA 

•or* 

TT 

•  on. 

TT 

•  ST. 

YS)) 

00 

TO 

los 

IF 

(YS  .LT. 

YA 

•  AND. 

(YA 

•  LY« 

YT 

•  OR* 

YT 

.LT. 

Y5)  ) 

00 

TO 

1 05 

l'JO  HR  a  SORT  (  Us«XA)a»2  ♦  (rS-YA)Pa2) 

AU  a  AA  «  ROU-(A5-AA)/H«  {  T#  ‘  I*  i  ROB* ( Y5-YA ) /HR 
ALR(1a*1,|H)  a  AU  *  YLH ( 1  a- 1 , IB)  «  TO 

AS  a  *U  i  YS  a  Y8  S  ASLPA  a  i),  S  KSLP«  a  0 

IF  (AB  .EG.  AS)  GO  To  120 

ASLHA  a  (YU-TBI  /  ( A8-X8 )  S  KSLPA  a  1  »  00  TO  120 

1)3  ALR(l.IB)  a  a6  S  TLR(l.lB)  a  r* 

Ids  ALR(iA.l.ld)  a  XT  S  TLR(1A-1,18i  a  rT 

A5  a  AT  *  YS  *  V7  S  ASLPA  •  ASLP  *  KSlPA  »  KSLP 

127  CONTINUE 
l  JO  COITInJE 
l«i)  CONTINUE 
RE  TURN 
ENG 


Table  A-7 

SUBROUTINE  TMAP 


SUBROUTINE  TmaP 


COC  6600  F T*t  V3.r»R?61  P»t*C  nS/11/7?  d.io.as. 


subroutine  tm«b 


suaroutinf  ro  print  e*r<isur r  oosr  contour 

COMMON  /MAP/  XMIN.XMAA.rMIN.TMAX.OCLX.OELY.LMAP.TXMtN.TX-AX, 

1  Y  lXtSISO!!)  »XAXISt?ni 

?  /INOAT/  M.ALWitITtf (#1 .TLtHlT 

3  /SCRTCm/OR(?0,50(1) .kuAx.kmAy 

DIMENSION  NEXPT(>')|.  IFMTfc  p (23 )  «  IF*T0L(?3) 

data  ifmTEP(23).  IFMt»i.(?3j,  IFmTA,  IFmtF,  IFuii,  Ifmim 
I  !M|.  )><>.  3H.A6.  5H.F6.0.  x-.IA..  5*1. FA. 3 

data  ialank,  oota.  lotr,  tfexi.  iffx?a.  tFrxps 

I  1M  .  3P  AH  «Hl|ll>.  AM  (  I  HO .  t  ?MPX 

OAT*  IFNLA,  KPLHi  IFPlIa,  IFOL'S.  IFHLfAr  1FPL“M 

1  AHIFlO.a.  3h,*X.  AhiIhO.F.  AH9.0.U.  AHI//FI0.  6M.U.  U 

OFTEPMINE  NlJMArA  OF  MAP  STRIPS 
KMAY  *  (VHAX  .  YMTN)  /  nELY  ♦  t.O 
KNX  *  (XMAX  -  XMIN)  /  OFlX  4  1.0 
SNAP  «  (KNK  «  191  /  70  t  KMAX  •  2C 

SET  UP  Y  A«[S  AMD  INITIAL  P4««E  OF  X  VALUES 
O'*  10  lA  «  1.  KMAY 

.  YAxtsitA)  «  ym*x  .  float t  r  a»i  j *ofi.v 
M  CONTINUE 

IF  (KNX  -  70)  is.  IS.  Ic 
IS  TXMAX  «  XMAX  »  00  TO  In 

?0  UMAX  ■  AMIN  ♦  |9.0*0ELX 

30  Tx«IN  .  »M[M 

no  1*0  IA  •  )•  <  MAP 

IF  Ha  ,EO.  K MAP)  KMAX  «  KNX  -  ?A*(TA-p 
00  *0  IP  •  1,20 

.  XAXISIIR)  •  Txmin  .  | is. I )*nELX 

*0  continue 

CLEAR  map  STORAGE  *«ea 
no  *5  tR  »  1.  KMAX 
00  *5  ic  *  1.  KMAY 
OP(IR.IC)  *  •>. 

AS  CONTINUE 


CALL  EOSEO,  IMXEPP,  AMO  SHNO?  to  perform  mapping 
CALL  E03FO  «  CALL  INTEOP  «  CALL  ORNOF 

“HINT  MAP  TtT.F 
.  00  TO  (SR.  SS.  SP«  SO).  LNAP 
SO  PRINT  945.  IA.  (TITLE • I  * .  I*1.R)  S  00  TO  61 
Ss  PRINT  9*11.  IA.  (TlTLFtD.  I*|.SI 
61  IF  (M00ltFIx(XMIM/0FLX)  .  7)  ,F0.  i>)  00  TO  63 
PRINT  95d.  (XAxIS(l),  1*1. IP. 2) 

IPRINT  «  I  «  00  TO  65 

63  PRINT  955.  (XAXI5II).  1*2.20.?)  »  IPRINT  *  n 

65  00  TO  (TO.  72,  IA,  76),  I.HAP 

To  IFMTRL(I)  *  IFRLIa  S  IFhIRli?)  *  IrRL'S  » 
72  IFMTRL(l)  »  IF0.7A  t  IFMIRLi?)  *  IFRL2M  « 


50  TO  An 
So  TO  An 


an 


Table  A-7  (Concluded) 


SUBROUTINE  TMAP 


eoc  aaoo  ftm  vx.k-ppm  opt*o  os/ii/t?  ii.io.as. 


TA  IFNTEP(l)  a  IFFX1 

T6  trMT£Pm  *  iffxja 
T8  IFMTRLMI  «  IFRla 
no  no  no  j  »  1  •  kaay 


\  ifmtfpipi  «  i blank 

9  lf»TEP|*|  >  IFFX28 

*  ifmtrli?)  *  ifrlr 


CHECK  VALUES  *"0  SET  UP  OUTPUT  FORMAT 
00  TO  IB2.  «2.  92,  0?) .  LMAP 
'JO  AA  t  •  li  KHAX 

IF  (ORII.J)  .f,T,  09099.1  ORfT.JI  •  99090. 

IF  (nRlt.Jl  ,|_T.  t.0|  00  TO  bi 

ifmtrli l»2)  «  ifntf  «  nn  to  *6 
DP(!*J)  a  noTO  »  IFhtBl(I*2!  *  JFmtA 

continue 

IF  (KMAX  ,E0,  20)  on  To  tun 

A  *  KMX X  ♦  1 

no  88  I  »  K.  BO 

IFMTRLI !♦?)  «  TSlANK 

continue 

00  TO  1(18 

no  44  t  s  |.  km  a  x 

NEXPTd)  *  I3LXNK  1  JFUTEP(I»P)  «  IFMTA 
IF  (OR(I.J)  .LT.  n.SO)  00  Tfl  ox 
IF  (OP(I.J)  .LT.  10. 1  00  TO  03 

NFXPTd’  *  ALPC.1  n  (ORII.J)  I  9  tF«T£P(I»2l  a  IFmij 
OPII.JI  a  nRU.JI  /  1 0.  C**NF  XPT  ( t ) 

IFNT9L ( T*?l  a  tfkTm  a  00  TO  OK 
ORII.J)  a  OOTA  9  IFhtRl,j,?|  a  IFMfX 
CONTINUE 

IF  (KHAX  ,E0.  21)1  on  TO  ins 
K  a  KHAX  ♦  1 
00  100  I  a  K,  ?P 

IFMTRL(T«*)  •  ISuXNK  9  IFMTfP(I.P)  a  I8|.Ank 
CONTINUE 


POINT  HAP  IN  OFOJESTFO  FORMAT 
PRINT  IFHTFO.  (NEXPT(I).  Jal.KHXX) 

PRINT  IFHTRe,  Y*XIS<J)«  (OPII.J),  iat.K»A>) 
CONT’NUE 

IF  (Il'PTNT  ,F0.  01  00  TO  II? 

PRINT  955.  (XAXISII).  Ia2,?»,2|  9  go  TO  l2« 

PRINT  998.  (XAxtS(I).  lal.lOt?) 


T»«IN  a  txNAx  .  3FLX  9  TxNA 
IF  (TXHXX  -  XMAX)  I  AO.  1  AO .  130 
TXMAX  a  XHAX 

CONTINUE 

RETURN 

FOP'UT  (AH1SI0TP  IA.  5*.  OAlo 
I  HAT*  ) 

FORMAT  (OHlSTRlB  IA,  $X,  K*10 
1  FORMAT*) 

FORMAT  1 1 HO ,  Ax,  10Fl2.fl 
FORMAT  (IhO,  10X,  1  OF  1 2.0 ) 

ENU 


TXMAX  a  TX“IN  »  |9,8»nEL« 


IA.  5*.  OAln,  5X.  »MAP  OUTPUT  IS  IN  OECIMAL  FOO 


5x,  8Al 0 .  5X»  »MAP  Output  IS  IN  FXPnNFNTt*i. 


Table  A-8 

SUBROUTINE  EDGED 


SoMOuTINE  EDGED  ratCE 


COC  6600  FTN  V3.0-P261  O»T«0  0 5/9*/Ei  15.13.21. 


5 0  )  SET  J»  MAPPING  OF  PATTERN  E03ES 

LOt  ».  V  LRAYI26«23l»MA»t26,23S*TRAY{26»23>»30RAYl26*23>. 

1  ’RAf 126.23)  .RDRAY  (26.231  «0»4TSA<26»2JI  • 

2  NLVL.OISMAA.OISMIN.XPAT.KA.KB.NPAR 

3  /EL3«»Y/  XLR(«.Z)«YLR(2*»Z).ID»<Z0*2> 

*  >}  UAORj/  XA.VA.UA.RDA.JRA.XB. YB.DB.R08.0RB.  XC.  YC.  XU.  Yl).  Xf  , 

5  YE.*F«YF.X£« 

LOOP  FOP  LEFT  AND  RIGHT  EDGES  OF  PATTERN 
AEA  »  1 

00  460  m  »  It  2 
KEG  ■  *£A 
NF  «  NPAH  •  1 
00  »SU  I«  »  It  NP 
1C  «  aailAtlB) 

10  •  1LRIIA«1,J3> 

IF  (ORAYIIA.IC)  <11.  1.0)  GO  TO  460 
A  A  >  ARAYII4.1C) 
rA  <  TftArdA.lc) 

OA  i  OPArllA.If) 

Xb  «  aRAYIIA.1,13) 
ft  «  f BAY (I  A. 1.13) 

OB  «  ORAf  ( 1A.1 , 10) 

AC  «  XLRIIA.IB) 

rc  «  YLRtiA.iai 

AO  >  ALPHA.  1,18) 

YD  •  tCR(Ia»1.I8) 

NOA  *  R0MAt<JA.1C> 

Not  •  ROHAT(lA.l.IO) 

ORA  m  0RATSAI1A.IC) 

OPo  •  0R»TS»1IA.I,10) 

CALL  EOOUSE 
aEG  *  K£4  .  1 
Ash  CONTINUE 
Alt  *  3 
46"  CONTINUE 
RETURN 
cNG 


Table  A-9 

SUBROUTINE  INTERP 


SUHROUt  l«E  InTEHP 


eoc  6600  FTN  V3.J-P261  OPTaO  03/09/72  lb. 50. 51. 


SUdRUJTlNt.  InTERR 


jUsROJTInE  To  PERFORM  MAPPING  OP  TH£  J0»N5In0  SECTION 

UHAY  JOSE  HATE  AT  26  POINTS  ALONG  THE  GROUND  TRAVERSAL 

PATH  OP  JP  TO  2J  CLOUD  LEVELS 
xr.y.yRAY  A.  Y  LOCATIONS  OP  THE  POINTS 
NLVL  NUMdER  OP  CLOUO  LEVELS 

OH  JOSE  HATE  OUTPUT  MAP 

KMAx.KMAY  NUM3ER  OF  X.Y  VALUE  ON  CJRRINT  STRIP  OP  MAP.  MAXIMJM 

IS  (20.500) 

XMlN.XMAX  INPUT  VALUES  OP  MINIMUM  ANO  MAXIMUM  X  FOR  OUTPUT  MAP 

TMlN.TMAX  INPUT  VALUES  OP  MINIMUM  ANO  MAXIMO.i  T  PUR  OUTPUT  MAP 

OELX.jElT  IN»JT  VALUES  OP  INCREMENTS  IN  X  ANO  V  DIRECTIONS 

TXMN.TXMAX  MINIMUM  ANO  MAXIMUM  VALUES  OP  X  IN  CURRENT  STRIP  OP 

MAP 

AAAIS. TAXIS  X  ANO  T  VALUES  ALONG  THE  AXES 


COMMON  /ARRAY/  JRAY (26.23) .XHAT (26. 23) .TRAY (26.23) « 3URAV (26.23) • 

1  PTHAy  (<!6, 23)  .hor  Ay  (26.23)  .OR  ATS  A  (26.23) .  . 

2  VLvL.OISMAx.OISMIN.KRaH.MA.K0.NPaR 

3  /NAP/  XM.  V.XHAX.TMINI  YMAX.DELX  yOELV.LMAP.  TxMIN.TXMAX. 

A  TAXIS! SOU) «XAX[S(20) 

5  /5CRTCh/JR(2J.S0J) .KMAX.KMAf 

b  /UUAURA/  AX.AY.OX.HY.CX.CT.DX.UY.SLP AS. SLPBO.SlPOC.SLPCa. 

T  KAS.KSD.KUC.KCm  , 

LOOP  FOR  EACH  LATER  StlnEtN  2  CLOUO  LEVELS 

UO  boj  IK  «  2.  TLVL 

lA  «  IK  -  1  t  Ld  »  IK.  • 

uUUP  FOR  EACH  aHEa  riOJNUEO  RY  COORDINATES  OP  2  PAIRS  OP  ADJACENT 

Radial  puinis  op  i  adjacent  hotlines 

NA  A  NPAH  *  1 


JO  950  I A  •  l,  N4 
XA  a  XNATIIA.^A) 
YA  a  YMAYIIA.^A) 
JA  •  JHXy ( I  X, _x) 
XC  A  XRAY(IA.LH) 
YC  «  YMAY(U.U0) 
OC/A  DHAYlIX.i.H) 


AMAxKDA.UU.OC.UD) 


X0  A  XRAY(IA.l.LA) 
Yd  A  YRAYIIA»1,LA) 
00  a  ORAY(IA.l.EA) 
XO  »  XRAY  (  X A*  1  .(,01 
YO  »  YRAY(IA.1.L0I 
00  A  ORAY  1 1 A  *  1  t[_B) 


IP  (OSMAX  .LT.  1,0)  GO  TO  J60 


iueniipt  leftmost  m-jivt 
1CA5E  ■  1  A  PXHlN  >  XA 

IP  (xo  RxmIN)  50  TO  lu  i  1CA3E  •  2  S  PXHIN  »  X9 

>.'»  if  (XC  .BE.  pxHI'*)  GO  TO  20  S  I«ASE  »  3  *  PX<!N  A  XC 

20  U  (XO  .GE.  »XMIN)  50  TO  Jo  S  ICASE  »  *  S  PXNIN  »  XJ 

UETERXINE  ip  juAJRAnGlE  IS  aITMIn  HXP  area 
Jl  PXH*x  A  AHAX1 UA.XB.XC.XOi  S  PTNAX  •  AM*> | (YA.T3.YC. TO) 
PYXIN  a  XHI  Ml  (  Y*.TS.Tr..YO) 

IP  (PxMAX  .>,T.  TxHIN)  30  TO  SSj 

IP  (PXHIN  .3T,  UMAX)  50  TO  SSO 

IP  (PYMAX  ,lT,  TMIN)  SO  To  S5J 

IP  (PYMIN  ,5T.  TMAX)  00  TO  SSO 

jO  TD  (»0*  SO,  60,  70),  ICxSE 
*•,  call  OUAO  (XA.yA.xS.TS.XC.TC.XU.YO)  I  30  TO  130 

S)  CALL  MUAO  (XS.YdiXA.rXtXO.rU.XC.TC)  S  SO  TO  I3D 

6 J  CALL  OUAO  <XC.YC.XA,YA,XD.YO«X8.T0)  s  so  TO  130 

70  CALL  UUAO  (XJ.YO.XS.YSiXC.TC.Xa.YA) 

tSlASLlSH  5RI0  COORDINATE  LIMITS  SITRIN  3UA0RANGLE 
13)  KX1  A  (PXMIN*TXMIN)/OEL*  ♦  I«0 
M2  a  (PXMAX-IxMINI  /  OElX  »  1.0 
KYl  a  (YMAX*PYMAX1/JELT  ♦  l.o 
KY<  A  (YMAX-PYMINI  /  OELY  «  1,0 


Ain  isnx«ag«82aSB>S» 


Table  A-9  (Continued) 


SUBROUTINE  INTERP  TRACE 


CJC  6600  FTN  V3.0-P261  OPT«0  0 i/09/U  16.50.51. 


IF  (FLOAT (Axi.ajELX  .LT.  PXMIN-TXMIN»0ELX)  <A1  ■  KX1  «  1 

IF  (FLOAT  (AYIMOELY  .LT.  YMAX-PYMAX*0£LY)  «Tl  •  A»1  .  I 

IF  (AXl  .LT.  ll  <Xl  *  1 

IF  (xx2  .GT.  <NAA)  MAZ  A  UMAX 

IF  (KY l  .LT,  1)  ATI  ■  1 

IF  (AY*  .01.  AHA T )  AY2  a  AMAY 

IF  (Axl  .0.'.  MX*)  03  TO  560 

IF  (AY l  .or.  Ay2>  03  TO  5aO 

HEX  *  XC  *  X4  l  j£Y  a  YC  -  VA 
OF  A  a  .10  -  X3  A  OF  Y  a  YO  -  YB 


Kl*  a  0 


OF A  a  XO  -  X3  *  OFY  a  YO  -  YB 

A12  a  3  I  All  a  g  $  A2A  a  0  t  Kl*  a  0 

IF  (XA  .EO.  A3)  30  tO  i42 
SOW  *  (YH-YAI  /  Ixd-XA)  5  AI2  »  I 
1*2  IF  (XA  .EU.  XC)  30  TO  1*4 

SLP13  •  (YC-YAI  /  IAC-XAI  i  A13  a  1 
!**  IF  (At)  .£0.  XJ)  SO  TO  1*0 

SL*2*  *  (YO-YJ)  /  (AJ-Xd)  4  A24  a  1 

1*0  IF  (XC  .£0,  AO)  00  To  I*t) 

Slb3*  «  (YU-YC)  /  (XO-XC)  5  A 34  a  1 
1*8  COnTInJE 

PERFORM  aaPpIyS  3Y  x  COLUMN 
'JO  54}  IX  a  AXli  «X2 

SELECT  X  VALUES  C XPT I  AND  OETEMMINE  RAN3E  OF  Y  VALUES 
APT  a  XAXlS(lX) 

IF  (AAd  .ME,  0)  30  (3  200 


as  is  parallel  to  y  axis 

If  (OX  -  APT  I  160.  1S2i  133 
ISO  y2  a  9Y  ♦  SlP3D* (XP T-3XI  t  00  TJ  JTO 
1S2  l>  a  or  S  GO  TO  I Tg 
IS)  Y2  a  JY  ♦  SLPJC* ( XPT- JX J 
IT.  IF  (C»  -  XPT)  100.  182.  IDo 
18-j  YI  a  CY  ♦  ScPCA*  ( XPT-CXI  A  00  TO  32 
132  YI  a  CY  i  i|J  TO  3?U 
MO  YI  a  OY  *  SlPoc*(xPT-OX)  $  0°  TO  32 

2 JO  IF  ( MCA  -NE.  Jl  3U  TO  260 

aL  la  PAPALlE.  TO  Y  AXIS 
IF  (ox  -  APT)  220.  212.  210 
21)  y2  a  AY  ♦  SlP»(*(XPT-AX)  f  00  TO  23 
212  Yd  a  OY  i  00  TU  23<J 
22.  Y2  a  UY  *  5lP90*(XPT»OX) 

230  IF  (jx  -  xpj)  p50,  242,  2*0 

2*-,  YI  a  OY  .  SlPJC* < APT-OX)  i  00  TO  32 

2*2  Yl  a  OY  S  00  TO  320 

24)  T1  a  dY  »  SLa3'ja(xPT-dAI  A  3°  TO  32 

neither  ah  mom  ac  is  parallel  to  taxis 

2S0  IF  (3A  -  APT)  280.  272.  2To 
2 TO  y2  a  AY  »  SLPA8* I XPT-AX)  S  00  TO  230 
2 T2  Y2  a  1Y  »  30  TO  23(1 

230  IF  (UX  •  APT)  261,  202,  2dS 

231  »2  •  OY  ♦  SlP3C*(XPT-0A)  i  00  TO  20 

282  Y2  a  JY  $  00  TO  2V0 

2s5  ll  a  ijY  •  SlPJO^IXPT-BX) 

2»r'  IF  (CA  -  XPT)  3IP,  302,  300 

j:o  yi  a  cy  ♦  slpcs*(xpt-cai  %  oo  to  32 

Jj2  Yl  a  CY  5  00  TO  32(i 

3 1 0  IF  (UX  -  XPT)  311,  312,  315 

311  Yl  a  OY  *  SLPao*(XPT-OXI  S  00  TO  32 

312  Yl  a  jy  I  00  TO  320 
315  Yl  *  OY  •  SL»3C*(XPT-3XI 
32a  CONTINUE 


SO  TO  320 
00  TO  320 


00  TO  *30 


00  TO  320 
SO  TO  320 


00  TO  *30 


00  TO  200 


GO  TO  320 


00  TO  320 


PERFORM  MAPPH3  for  y  POINTS  ALONG  TRE  CURRENT  X  COLUMN 
00  531  1Y  a  ATI,  MY2 
YPf  a  YAAISUYI 


Reproduced  from 
best  available  copy. 
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Table  A-9  (Concluded) 


SUcpugU  it'  I  ITEWP 


mace 


COC  *600  fTN  V3.9-P261  0*T*I>  05/09/72  16.50.51. 


1*0 


1*5 


150 


153 


i6* 


1*3 


HO 


1  is 


1<TI 


IB- 


l»0 


IKS 


aoo 


if  X.r  POINT  IS  OUTSIOE  dUXOPXNGLE.  PP0CEE0  To  NEXT  PJINI 

if  ir»r  ,gt.  »j  .on.  ypt  .lt.  yh  oj  ro  S30 

If  Us  .EU,  XX)  30  to  3*0 

If  11“1  .E'J.  r**SLPl2»lXPT-X*i  1  00  ro  530 

30  ro  jso 

j.m  if  t»pr  .to.  x«i  go  ro  5 jo 
35c  if  <m  ,£u.  l)  33  ro  **o 

If  (XX  .EO.  XCI  30  TO  360 

if  (»pf  .Eli.  r»«si.Pi J*(xpf»xxi )  00  ro  530 

30  TO  **0 

J6.<  If  (XPT  .Ed.  XXI  00  TO  530 

JETEPN1NE  IN1EPCEPTS  Of  LINE  (XXtrX!  ro  IXC.YC1  XN0jtX8»Yd)  TO 
'xo.roi  *itp  line  tppouoh  point  ixpt.ypti 

-.*'1  TEX  *  XX  •  J£X*.5  <  Tt»  «  YX  .  0ETX.5 

Ifx  *  xd  ♦  0fX*,5  S  If Y  »  YH  ♦  Of'*. 5  I  PfXC  •  0.3 

00  *9 0  Id  *  1«  20 

pf*C  *  .3  •  PfxC 

If  HE*  .HE.  TfXI  go  TO  *so 

If  (XdS<XPT-T£A)  .LT.  10.1  qO  TO  $00 

If  IXPT  .GT.  TeXI  GO  TO  *?0 

uO  TO  *75 

♦So  SLOPE  *  (TfY-TEY)  /  (TfX-TEX) 

YTE«  *  TEY  ♦  SLO»E*(XPT-t£XI 
If  (XOSlYTEd-YPTI  .Lt.  lo. I  GO  TO  500 
If  (SuOPEI  *60.  *75.  *65 
*6i  If  (rTEP-fFT!  *10,  SOJ,  *T» 

*65  If  (YTEP-YPN  *75.  300.  */u 
*19  fxC  •  Sl3N(Pfxc.JEX|  t  GJ  TO  xoo 
* 75  fXC  *  -SIGNlkfXO.OEX1 
*«•:  IE*  «  Tex  .  f xC*3EX  t  TEf  ■  TEY 

Ifx  •  r»x  .  f *C*3f X  «  TfY  .  TfY 

*9 j  CONTINUE 


FAC»D£Y 

f*C*OfY 


CO*PuTE  £>POSJPE  PATES  »T  INTERCEPTS 
300  4XY  «  (xx-xc) **2  ♦  (YA-YC»**2 
If  ( 3XY  .Gl.  1«0.I  30  TO  5v5 
CUXTl  »  .5  •  dix.gc)  *  GO  TO  510 
3ji  UP»U  *  JX*( JC/OX) **($uwr ( ( (XX-TEXI**?  »  (YX-TEY)**3l  /  SXYI I 
5 1 J  S*Y  •  <X'1-XJ>**2  .  (Yd-Y0l**2 
IF  (>XY  .or.  1J0.I  GO  TO  319 

iih*t2  *  .5  •  ioi»oo)  *  oo  ro  si* 

315  0PXT2  *  JH*(J0/3dl**(jd»T(((X8-TfX)**2  ♦  (Yq.rfYl**EI  /  SXYI I 
313  Sxr  •  ( T£x«ff Xj  **a  .  (T£r»TfYI**2 
If  (SxY  «g I •  100.1  30  TO  313 
OnkTE  •  .5  •  (OP*T ifOPATZI  S  00  TO  520 
Sit*  0«*TE  *  JHxri*(JXXr2/JNXTll»*(Sa«T(HlEX-XPTI**P  »  (TEY-YPTI**2)  / 
l  SXY1I 

329  JPtlx.lr)  »  J»(U.IY)  .  09XTE 

330  COnTI yJE 

CUP0EnT  ‘  COL Jd*  IS  CJdPLETEJ,  P90CEEJ  TO  NE*T  COLJPN 
9*0  CONTINUE 

dXPPliG  IS  COdP.ETEJ  f (Ip  CuPPENT  dUSOPANOLE,  P90CEEJ  TO  NEXT  SET 
0'  POINTS 
33.1  COSTINJE 


C  NXPPINO  IS  CJdPoETEO  fOP  CUPPENT  CLOJO  LEVEL 
560  CONTINUE 
C 

C  MXPPING  IS  COdPwETEO  fOP  ENflPc  CLOJO 
PE  I UP N 
ENU 
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Table  A-10 

SUBROUTINE  GRNDZ 


SUdRlUdYE  JRRJA  TRACE 

SUdRIJf IRE  3RRD2 


COC  6630  FTN  Y3.0-P261  OPTag  0S/09/T2  IS. 13. 21. 


SUdRJUrilE  TO  SET  UP  HAPPINO  AROIIHO  3R0UND  ZERO 

COHMJH  /  JUAJRd/  tit  YA.OA»HDA.DHA.XB.Yd,Od*ROd.DHB,4C«YC.Xi;«YO.XE. 
I  YE.XF.YF.AE3 

i  /Array/  3RAY<2#,23),xRAY(2fc,23),YRAY(26,23)»03HAY(26*Z3), 

3  FTRAY  (Eo»Z3>  .RURAY(2t>.2D,DRATSA(2b«2J) . 

A  luVL.OliNAA.UISHlN.KPAR.KA.KdtNPAR 

S  /tUORAY/  XLR(2l>.2)«YLAl26«2),Ii.R(26,?) 

LOCAfE  ’JP*HJ  PJInTS  FUR  LEFT  and  RIuHT  SHOULDERS  OF  THE  PATTER* 


1A  a  ILR ( 1 « 1 ) 

**  «  xpay(I.ix) 

y»  a  YHAYli.tx) 

UA  a  JR  A  y  ( 1  •  1  X ) 

MUA  a  RQRAY  ( 1 .  [  A) 
ORA  a  URATSA (1.14) 
At  *  ALRIltll 

re  *  VLRtitU 


IT  *  ILRtl.2) 
a3  a  ARAy ( I  *  I Y ) 

Yd  a  yhayii.iyi 
[Id  a  i)RAYil(Ir) 

HOd  a  RORAY ( 1 » lY) 
ORd  a  ORATSA ( *  * JYI 
AF  a  AL«(1.2| 

*F  a  yLR(1.2l 


CHECK  I F  UNi  (X..YA)  TO  (AS. Yd)  IS  P  ’ALLEL  TO  A  AXIS 
IF  < It  .It.  Ydl  30  TO  10 
AC  »  AA  »  AJ  a  Ad  *  HF  a  i.I 

IF  (AA-xdl  It  S.  9 
i  IF  ( f  a  .  yhay  (2t  I  am  It  bt  9 

H  IF  (  AA  -  AHAY<iMlX>>  9t  9«  ? 

?  »F  a  .1.1 

V  YC  »  YA  ♦  R04«RF  $  YO  •  Yrt  •  RU8*RF  t  30  TO  AO 

check  if  li ye  is  parallel  to  y  axis 

1)  IF  [AA  ,.9c.  Ad!  30  ro  20 

YC  *  YA  S  n  a  Yd  S  RF  a  l.l 

IF  (YA  .0T.  Yd}  RF  a  -1,1 

AC  a  44  •  R:U*RF  i  AO  a  AP  ♦  RUyARF  S  30  TO  AA 

li  Yt  li  hot  parallel  ro  either  axis 

21  »SLP  *  (AA-Adl  /  ( YH-Ya I 

(R  a  ioRMl.O/tl , 0*ASLP*ASLP! )  i  RF  »  l.l 
IF  (ASLP  ,LT«  0.1  00  10  30 
If  |Ad  .or,  AA)  Rf  a  -l.l  $  00  To  »0 
V>  IF  (Ad  .Lf.  <A)  RF  »  -1.1 

»  I  AC  «  AA  ♦  T R-RoA*HF  S  AO  a  a»  ♦  TRaHU8*RF 

YC  a  Y-t  .  AS.pa(xC-AA)  S  YU  a  Yd  .  A-,(.P»  I  XU-AB) 

call  sudRooriYES  shuir  ayo  eioose  to  rap  shoulders  aro  upaino  area 

Hi  CALL  S'YLOR  *  Kcu  a  b  s  CALL  ‘MuOSE 
RtTURY 
to.' 


Reproduced  from 
best  available  copy. 


SNH«y«Fsw 


Table  A-ll 

subroutine:  quad 


SUBROUTINE  M«j 


cue  6600  FTN  V3.0-P2S1  OPTaO  t)b/v9/JZ  15.13.21. 


SUBROUTINE  OJ6U  (X1.Y1.X2.Y2.X3VY3.X<..Y4) 

SUBROUTINE  TJ  DETERMINE  THE  OHlENTATtOij  OP  6  OUAORAN3LE 

Z'jM'l.i  /OUAJRA/  AX.AY.dX.BY.CX.CY.OX.OV.SLPADtSLPBOtSLPOC.SLPCA. 
1  KAU.KBOtKOC.KCA 


KAH  a  0  6  <00  ■  0  1  KUC 

Kf«  a  j  A  RTR  «  U 

A*  4  XI  t  AV  ■  Yl  A  OX 

IF  (Xl  .JO.  XJ|  JO  TO  10 
IEHA  a  (Y2-YU  /  (<2-»l)  S 
IF  <<1  .EU.  XJ)  30  TO  20 
TEH0  «  (Y3-YU  /  (XJ-Xl)  * 

IF  «KT«  ,E3.  0>  30  TO  JO 
IF  (  <TH  .EU.  I>)  30  TO  SO 
IF  (Teoa  -  TERN)  70.  60.  60 
IF  ( >T0  «E0.  0)  30  TO  AO 
IF  (Y1-Y2I  ou.  bo,  7(i 
IF  (72  -  Y3I  70.  bO.  bO 

IF  ( Y i  .  r3l  70.  70.  60 

RX  a  <2  *  JY  a  Y2  *  CX  ■  XJ 

SuPA  I  a  TEMA  I  KAO  1  KTA 

SuPCT  »  TENS  t  KCA  »  KTU 

00  TO  "S 

OX  a  XJ  »  BY  »  YJ  $  CX  a  X2 

Sli'AO  a  TtU-j  J  KAO  «  K  TO 

SUPCA  a  IF. Ha  5  KCA  a  KTA 

IF  (Ox  , EU.  Jx)  30  TO  J0 
SL°OJ  a  (DY-JY)  /  (OX-OX) 

IF  (CX  ,EJ.  3X>  30  TO  103 
SLPJC  a  (UY-CY)  /  (UX-CXI 
RETJHN 
ENO 


KTA  a  j 


3P^PP?!5g5S!*?>5^S5B?,^!5S£?®5^S^a^Bffl^P®B!i 


Table  A-12 

SUBROUTINE  EGDOSE 


S'JdWOUTINE  fiv>  JOSE  TRACE 


C>C  6*00  FTN  V3.0-P261  OPT»0  05/00/72  16.13.21 


5 


10 


Id 


20 


25 


31 


35 


*0 


*5 


50 


55 


SOdROJTlNE  E300SE 

C 

c  subroutine  ro  compute  exposure  dose  for  the  pattern  edges  and 
C  UPRINO  SECTIOT 

c 

CUMMOT  /UUAJRA/  AX.ATi5A.0y.CX.CT.OX.OVt  SUPAR.SLPBD.St.P0C.5LPC A. 

1  XAR.KBO.KUC.SCA 

2  /SCRTCH/ORlZOiRUU) .KHAX.KMAY 

J  /AaP/  X5lN,xN»X.TNl'i.TRAX.0El-<.0ELT.l.MAP.Tx5lN,TXRA<. 

.  TAX15'.S00l.XAX15(20l 

d  /JUAJRd/  XA.TA.OA.RDA.DRA.xa.Td.DS.RDd. ORB. XCvTC.XD.TD.XE. 

!>  YE.AF.  YF.KE3 

/CLDATA/  '<Cri.»Cr.RRlN.RHAX.TS4>TRHAXt  AAT10.  FRA. HAT* 

C 

c  Identify  leftmost  point 

IF  (0*  ,LT.  l.'o  .AND.  00  .LT.  1.0)  30  TO  ASO 
SAT  •  bOHT(UR-XA)AA2  «  (Ytf-YA)A«2> 

1CASE  *  I  *  »XRIN  »  XA 
IF  (Ad  «UE.  »XRH)  00  TO  10 
ICASE  «  2  v  'HI'I  »  Ad 
ll!  IF  (AC  ,3t.  PXHlN)  0.)  TO  20 
ICaSE  «  3  4  PXHID  *  XC 

20  1/  (AO  .OE.  PXMlN)  00  ro  id 
ICASE  «  A  A  axRl'J  *  xo 

r  ' 

L  DETERMINE  if  jOAJRAnGLE  IS  mTHIN  HA->  AREA 

OU  PAMAX  «  AMAA.  (XA.Ad.XC.XO)  I  PYMaA  ■  AMAAKTA.TB.TC.TD) 

PTMIT  *  AMHi(TA.T0.\C.YO) 

if  (px  tAx  .cr.  txmin;  to  »5o 

IF  (PXMH  .8T.  fXHAAJ  30  r0  *50 

IF  (PYMAX  .LT,  TMlNI  30  TO  *50 

IF  IPYMIN  .OF.  YMAX)  30  TO  *50 

uO  TO  (A".  50,  60,  TO) ,  ICASE 
♦  •)  Call  OOAU  (X4.YA.X0.Yd.XC.YC.XOf YOI  S  00  TO  133 

So  CALI.  OOAJ  (xS.Td.XA.TA.XO.TD.XC.TC)  S  30  TO  130 

60  CALL  OOAO  (AC.YC.XA.TA.AD.TD.Ad.T8)  S  30  TO  130 

70  CALI.  JJAd  (XJ«YO*X0*Yd«AC»YC»AA»YA> 

C 

c  Establish  grio  coordinate  limits  mithin  uuadranole 
130  Mi  «  (PAM!N-TXMIN)/(>ElX  »  1.0 
Aa2  m  (PXMAA-TXMIN)  /  DEL*  ♦  *.3 

at!  «  (ymax*othax)/delt  .  l.o 

*t2  «  (YIAX-PYMINI  /  OELT  «  1.0 

If  (Float (Mi iaj-la  ,lt.  pxmih-txmin»dei.x>  kx!  *  <«i  »  1 

IF  (FuOAT(KTl)AOiLT  ,LT.  YMAA-PTMAX.JELT)  KYl  •  XTl  •  1 
1  AO  IF  (Ml  .LT.  1)  <xl  A  1 

IF  (M2  .OT.  anaA)  Ka2  «  KMaA 
IF  (ATI  .LT.  1)  AYl  a  1 
IF  (KT2  .GT.  AMAY)  Kf2  «  KMaY 
IF  (AX  1  .01.  AX2)  GO  To  450 
IF  (ATl  .Of.  ATS)  30  TO  *53 
C 

c  perform  mapping  jt  t  culomn 

JO  **0  IA  *  AX  l  *  M2 

c 
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Table  A-12  (Continued) 


suxiouriNt  eoooSE  trace 


cue  6600  FTn  V3.0-P261  0PT*U  05/0R/T2  16.13.21. 


SELECT  A  VALUES  (XPT)  (NO  DE'.EIHINE  HANOE  OF  V  VALUES 
apt  *  x*riS( !*) 

IF  (KAU  .N£.  0)  30  TO  200 


Ail  IS  parallel  tc  r  AXIS 

IF  (AX  .£d.  tlx  .AND.  AT  .EG,  BT I  00  TO  200 
IF  (JX  -  XPT1  160,  lb2,  ISO 
l$u  1i  *  at  •  SLPflU* (APT-BX)  S  00  TO  >T0 
152  r2  «  OT  6  30  TO  ITfl 

tso  »v  »  or  ♦  slPjc*ixPT-oxi 
IT,  IF  (C*.  -  *PTl  l»0.  192.  Ido 

loo  rj  *  cr  «  slpca»ifpt-cxi  $  oo  to  220 

H2  71  a  C7  t  30  ro  320 

lio  n  *  or  .  SlPoc»(xPt«oxi  s  oo  to  320 

2il  IF  (KCA  .ME.  0)  30  Tu  260 


00  TO  320 
00  TO  320 


ac  is  parallel  to  r  axis 

IF  (dA  -  APT)  220,  212,  210 
2Ju  72  •  AT  .  SlPAB»UPT-AXI  t 
212  72  *  dr  i  3>  TO  230 
22.1  72  *  3/  '  SLP30*<XPr-MX> 

230  IF  (OA  -  XP7J  2i0,  2*2,  2*0 
2,J  7l  •  07  ♦  SLPJC* (APT-OX)  S 

2*2  ri  *  or  »  io  to  J*o 

290  n  *  or  .  slPoi.aixpt-oa)  » 


SO  TO  230 


00  TO  320 
00  TO  320 


NEITHER  AO  NOP  AC  IS  PAHAv.LEl  TO  7  AXIS 
23  1  If  (dX  -  APT)  200.  272.  2Tl 
it)  72  «  A7  •  Si.PAO»(APT-AA)  f  OO  TO  ZlO 
ZT2  it  «  at  %  i]0  TC  ZVtf 

2d0  IF  |JA  -  XPT1  291,  2s2:  295 
211  72  •  07  ♦  SlPOC«<APT-OXI  6  00  TO  2V0 

tit  72  *  07  l  OJ  TO  210 
2d*  72  *  dr  ♦  SLP30*(XPT-dX) 

210  .F  (CX  -  XpTi  310,  312,  300 

110  71  »  cr  •  SLPCA»(XPT-CXl  S  00  TO  320 

132  71  a  CV  3  30  TJ  320 

}>J  IF  (.)A  -  XPTI  111,  312,  315 

311  71  «  or  ♦  SLPdO*(XPT-0X>  S  00  TO  320 

112  71  *  07  3  30  TJ  321 

115  71  »  or  »  SlPJCM APT-OX) 

32 1  CONTINUE 


00  TO  210 


00  TO  320 


00  TO  320 


PEPFJPN  1APPIN0  *0*  7  POINTS  ALONO  THE  CURRENT  X  COLUMN 
JO  *10  17  *  ATI,  K72 
7PT  A  7AXtS(I7) 

IF  X«7  POINT  is  oursioe  RUADIANOLE,  PNOCEEO  to  NEXT  “OIlT 
IF  (7PT  ,0T.  7?  .01.  7PT  .LT.  711  30  TO  *3o 
0°  ro  (339.  322,  326,  J2li  322),  KEG 
122  IF  (Ad  ,EU.  XJI  30  TO  32* 

IF  ( 7P f  .Ed.  7H»(70-7il»(XPT«XHl/(A0«AH))  00  TO  *30 
0U  TO  339 

32*  IF  (APT  .Ed,  XI)  00  TO  *30  6  00  TO  339 

32*  IF  (*A  .Ed.  Ad)  30  TO  32* 


5.". 
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Teble  A-12  (Concluded) 


SUBROUTINE  CtilJOSt 


TRXCE 


CJC  6600  FTN  v3.n*P261  OPHlI  05/00/72  15.13.21. 


115 


120 


125 


HO 


135 


1*0 


16b 


ISO 


155 


HO 


32B 

330 


IF  (YPT  .EU.  YX.(YB-Y*)6<APT-XX>/(XB.XX>>  OO  TO  *30 
00  T 1  VJB 

IF  (XX  .£0.  ACI  30  TO  330 

if  (ypt  ,£u.  yam  yc-ya).<a?t-xa>/(ac-xx> i  oo  to  630 

00  TO  126 

IF  (XPT  .EU.  XX)  00  TO  *3u  t  00  ro  326 


332 


33* 


00INJ  UP/1N0  SECTION 
CONTINUE 

IF  (APT  .50.  XX  «XN».  TPT  .EO.  YX)  03  TO  X30 
IF  (APT  .EU.  XH  .ANO.  YPT  ,E0.  Y8)  00  TO  630 
IF  (Ax  .YE.  XB  .ON.  YX  , nE.  YB>  00  TJ  336 
IF  (XX  .EU.  XC)  30  TO  336 

IF  (YPT  .NE.  Y4«(YC-YXH(XPT-XN)/(XC-XXI  I  00  TO  630 
AT  ■  XA  6  Yf  ■  YX  S  JU  TO  *0‘» 


CHECK  IF  LINE  IS  PARALLEL  TO  Y  AXIS 


336 

IF 

(XA 

•  N£  • 

X6) 

30 

TO 

350 

XT 

*  XA  f 

YT  s 

YPT 

IF 

(YX 

.LT. 

raj 

3C 

ro 

360 

i 

IF 

(YT  .OE. 

YXi 

SO 

TO 

*00 

IF 

(FT 

.LE. 

rd) 

30 

TO 

390 

s 

00 

TO  610 

3*0 

IF 

(YT 

,3£« 

*d> 

JO 

TO 

390 

1 

IF 

•YT  .Lt. 

YX) 

00 

TO 

*00 

00 

TO 

.10 

Check 

IF  LINE  is  PXHXLLEL 

TO  X 

XXIS 

ISO 

IF 

(YX 

.nE. 

Yd) 

30 

ro 

360 

AT  »  APT  S  YT  •  YX  » 
36.)  SLP  »  (YB  -  YX)  /  (XH  -  <A| 
XT  •  (SLP»(Y|,T-YX.SLP»XX)  . 
»T  •  YX  •  SL®6(*T-XX) 

IF  (XX  ,LT.  Xd>  00  TO  390 


00  TO  370 

XFT)  /  (SLP»SLP.l,o) 


370 

Ho 

390 

600 

613 


Xd)  30  TO  390 
Xd)  30  TO  390 


HAOT 

uxor 


hob 

HQ* 


DHxriO  ■  DPS 
oRxrio  «  orx 


(YT-YXI **2l  /  SXY 


620 


625 


630 


660 

*5 1 


IF  (XT  .LE 
IF  (XT  .OE 
00  TJ  610 
DXYT  6  OB 
00  TO  *2() 

OxYT  «  Ox 
00  TO  620 

SAT  >  SORT ( ( XT*XX1 **2 
OXYT  ■  OX6(OS/OX16«SXT 
OHXTIO  6  ORX  ♦  SXT*(0H4-DRX> 

HXOT  6  HO*  •  SxT6(H0tW0XI 

HXOS  6  (XT-XPT1662  ♦  (TT-TPTI662 

TEHB  *  i.  t  IF  (R*OS  .OT.  .*MIN»RdIN>  00  To  *25 

HOOT  6  S3RTMX3S) 

T£H8  x  .25  6  ( (HH1N"H00T)/HH1N)6* (ORXT 10/6,01 
OH(IX.IY)  »  OH(IXtlY)  «  3XYT*(.r36£XP(-.5693l6R«o$6 
(OHXTJO/HXOT)6»2|  •  TEHi) 

CONTINUE 

CONTINUE 

RETURN 

END 


XX)  03  TO  *00 


IF  (XT  .BE. 

00  TO  *10 
IF  (XT  ,LE.  XX)  00  TO  *00 
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Table  A-13 

SUBROUTINE  SHLDR 


SUHROOflNE  5-iuOK 


COC  6400  FTN  V3.0-P261  QPT»o  0S/0«/T2  15.13.21. 


SUMROOTIvE  SHLOR 

suRiwomE  n  cokpote  exposure  dose  for  the  left  and  port 

SHOJlOcRS  OF  the  F«LlOJT  PATTERN 

COHHOl  /JUAOPt)/  XA,YA,DA,H0A,0RA,X8,Yti,08.R08.Di»R.XC.YC,XU,YD,XE, 

1  YE.xF.YF.KEG 

2  /iCHr;H/3R(‘:0,3«0|  (KMaX.KHAY 

1  /HAH/  XNIN.XMAX.  YMIN*  YhaX.OELX.OELY.LHAP.TXRI.O.TANaX* 

»  YAXlSl300).XAXlit20)  . 

5  /pUAOHA/  AX.AY.8X.HY.CX.CY.0X.0Y.SLPA8.SLP80.SLPDC.SLPCA. 

b  KAH.KaO.KUC.KCA 

l  /CLUATA/  AC4.ACT.aMIN.RMAX.TS««TRMAX,RATI0.TRA.RATA 

SET  UP  TO  HAP  THE  LEFT  SHOULDER  OF  THE  FALLOUT  PATTERN 
XL  *  XA  S  XH  *  XE  *  XN  a  XC  6  XXSE  ■  1 

<L  «  »A  6  YH  «  YE  *  YN  •  YC 

■JJ  *  OH  %  01  *  0R»  *  NO  ■  PDA 

LOCATE  FOURTH  POINT  OF  SHOULDER 
)  HF  «  1.2  5  \e  (YM  .£0.  YH)  00  TO  25 

SL  «  (XH-XH)  /  (YM-YN)  , 

IF  (XN-XV  .Lf.  Z.PXL)  NF  « 

XK  a  XL  ♦  HF*RO»SJHT(1.0/(l.U*Sl»SU) 

YH  *  YL  ♦  SL«(XK-XLI  S  00  TO  20  ' 

>3  IF  (YH  .LT.  YL)  RF  a  -1.2  >  XK  a  XL  *  YK  »  YL  *  RFARD 


OETEHHINE  ORIENT ATlOH  OF  SHOULDER 
ICA3E  »  1  S  PXHIN  »  XL 
IF  (KM  .3£.  PXH1X)  00  TO  30  * 

IF  (XN  ,3E.  »XMIN)  00  TO  35  * 

i  IF  (XH  .Ot.  PXHIN)  00  TO  AU  * 


I CASE  *  2 
ICaSE  »  3 
IC.lSE  •  A 


$  PXHIN  »  XH* 

J  PXHIN  A  XN 

%  PXHIN  •  XH 


OETETHlxE  IF  SH3JL0ER  IS  HITHIN  MaP  AREA 

P^HAX  «  AMXXl  (X„.XM,XX.XK>  *  PYHAX  -  ANAXI  ( YL.  YH.YN,  YK. 
PfHH  A  AMIHt  (YL. YH.YN. YK) 

(F  (PX<AX  .Lf.  TXHIN)  jO  TO  lig 

IF  (PXNH  .GT.  TXHAX)  00  TO  150 

IF  (PYHAX  .LT.  YHIN)  00  TO  J5U 

IF  (PYK1N  .Of.  YHAX)  30  TO  130 

DETERMINE  ORIO  SUBSCRIPTS  FOR  SHOULDER  AREA 
KU  »  (PxHIH-TfHIN)  /  OEL*  »  1*0 

kx2  a  (PxHAX-TXHIN)  /  DELX  ♦  1.0 

KYI  «  (YHAX  -  PYHAX)/  GELT  ♦  1.0 

Ky2  a  (YHAX-PYH1H)  /  OtLY  «  1.0  „  , 

IF  (Float ikxDaoELx  ,lt.  PXHiN-Tr.MlN.OELX)  kxi  •  **l  ♦  | 

IF  (FLOAKKyUaOELY  .LT.  YHAX  -PTHAX.OELY)  K>  .  «  KYl  ♦  1 

IF  (KX*  .LT.  1)  KXl  »  1  *  IF  (KX2  .OT.  KHAX)  KX®  ■  KM*X 

IF  X  I  ltI  II  KYI  »  1  *  IF  «KY2  .<»T.  KHAY)  KY2  -  KHAY 

IF  (KXl  .OT.  KX2)  00  to  ISO  i  IF  (KYI  .OT.  KY2)  00  TO  ISO 

RENAME  VERTICES  eT  ORIENTATION  of  Shoulder 
00  T)  (50.  60.  TO.  TSI .  ICaSl 
)  call  ou»o  (xl.yl.xh.yh.xn.yn.xk.yki  s  oo  to  ho 


Table  A-  13  (Concluded) 


SUnMJUTInE  »6lOM  MACE  C)C  6600  FTN  V3.0-P2S1  OPTaO  0 5/09/71  14.13.21. 

60  CALL  JdAJ  (XN,YM,XL«YL. XK.YKlXN.YN)  0  00  TO  00 
r J  CAUL  JUAJ  (A9.YN»XL«YL«XK»YKlAM.YM>  t  00  TO  60 
f 3  CALL  JJAJ  (  AA.  YX.XMi  YM.XN.  YN»XL«  YL) 

C 

60  C  PERFORM  MAPPING  8Y  X  COLUMNS 

3)  IF  (<L  ,E0.  AM)  30  TO  61  S  SLPLM  r  (YL-YM)  /  (Xl-XM) 

Ml  IF  (<L  .EU.  AN)  30  TO  82  *  5LPLN  «  (YL-YM)  /  (XL-XN) 

Id  JO  ix  a  AX  1  *  KX2 
APT  a  XAXtS(lX) 

65  C 

C  UETEAMINE  RA93E  OF  Y  VALUES 
IF  (AX  .£0.  6X1  30  TO  MS 

if  i  »r  ,lt.  dx)  oo  ro  os 

sS  IF  (A  f  .LE.  OX)  00  ro  90 

ro  y2  *  or  ♦  sl“jc*(xpt-ox)  s  oo  ro  loo 

♦■>  Y2  a  dY  ♦  SLPaO»(XPT-flX)  S  00  TO  loo 

la  Y2  a  AY  •  SL^AdAIAPT-AX) 

l JO  IF  UA  .to,  CX)  30  TO  105 

IF  (APT  ,LT.  CX)  00  TO  lib 

75  ns  if  (apt  .le.  ox)  oo  ro  no 

Y1  a  jy  *  SLPdO* ( XPT-OX)  S  00  TO  l»!0 

11)  Yl  a  CY  .  3LP0C»(XPT-CX)  S  00  TO  IRO 

UJ  YI  .  AY  •  Sl“CA»IXPT-AX) 

c 

80  C  PEMFJMA  .JAPP!  NO  FOR  Y  POINTS  ALONO  TMt  CURRENT  X  COLUMN 

l?)  CONTINUE 

■JO  1J0  IY  »  AYU  KY2 
YPT  a  Y  AXIS ( 1 Y ) 

if  !ypi  .or.  u  .or,  ypi  ,lt,  yIi  oo  to  ho 
88  IF  (XL  .£0.  AN)  JO  to  122 

IF  (YPT  .EU.  YL-SLPLM* ( XPT-XL) )  00  TO  130  s  00  TO  12* 

122  IF  ( APT  .EU.  XL)  00  TO  Hu 
12»  IF  (XL  . £U.  AN)  00  TO  i26 

IF  (YP(  .EU.  YL*SLPLN*I*PT -XU)  00  T>)  130  S  00  TO  120 
90  126  IF  (Apr  ,E0.  XL)  00  TU  130 

12m  MAOS  «  (XL"*jT)»»2  •  (YL«YPT)F»2 

TtMM  a  o,  S  IF  (RAOS  .OT.  MMINFRAIN)  00  TO  129 
Moor  »  smrthaos) 

TEN,  «  .25  •  1 (RNIN-MOOT)/RM!N)f»(D!A4.0: 

95  (27  JMlIA.Iv)  •  )R(Ix,IY)*JU*(.75-ExP(*,5Am31*RA0S*(DIXRJ)##2)  «  TEM1) 

tin  CONTINUE 
16.7  CONTINUE 
c 

C  return  ro  NAP  THE  PIOHT  SHOULDER  OF  THE  FALLOUT  PATTERN 
100  l»0  IF  (XaSE  .tO.  2)  00  TO  160 

XL  ■  Ad  S  XM  a  XF  S  AN  ■  XO  S  RASE  «  '*■ 

Yl  •  YU  »  YN  a  YF  S  YN  ■  YO 

00  a  06  S  01  ■  09a  $  HO  ■  ROM  S  00  TO  20 

16J  RETURN 

1 1)5  tNJ 
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Appendix  B 

SEER  II  EMPIRICAL  EQUATIONS 


The  following  equations  are  derived  from  DELFIC  numerical  printouts, 
with  total  yield  W  in  KT.  The  cloud  formation  or  stabilization  time  in 
seconds: 


<B,1)  t  =  20.0  (l6.0  -  W 0,27  +  6.0  log  v) 
a  \  10  / 


The  cloud  top  altitude  in  meters  at  t  : 

s 


(B.2)  A  =  3500  W0*271  -  (11.0-W)2*87 

X 


1.0  £  W  £  10 


(B.3)  At  =  4000  W°-2362  -  (103-W)1*3 


10  <  W  £  100 


(B. 4)  A^  =  4200  W 


0.225 


100  <  W  £  1000 


(B.5)  A  =  5800  W 

X 


0.1759 


1000  <  W  £  10,000 


(B.6)  A  =  3100  W 

X 


0.2439 


10,000  <  W 


The  cloud  base  altitude  in  meters  at  t  : 

s 


(B. 7)  A  =  1700  W0,2634  _  333  w_°‘5  1.0  £  W  £  1000 

b 


(B.8)  A  =  1350  W 
b 


,0.2961 


1000  <  W  £  2000 
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a 


:# 


m 


n 

;11 


M 


Preceding  pagdM 


-<Anv^v^jiri;a. 


(B.9) 

0.2525 

k  =  1880  W 
b 

2000  <  W  £  10,000 

(B.10) 

0.2901 

A,  =  1330  W 
b 

10,000  <  W 

The  cloud 

radius  in  meters  at  t  : 

s 

(B. 11) 

r  =  r 

min  s 

1.0  £  W  £  10 

(B.12) 

r  ,  =  (1.0086  -  0.00096W)r 

min  s 

10  <  W  £  100 

(B. 13) 

r  ,  =  (0.9  +  0.00156 (log  W)3)r 

min  10  s 

100  <  W  £  10,000 

(B. 14)  and 

r  =  r  10,000  <  W 

min  s 

where 

0  544  2  4 

(B. 15)  r  =  350W  *  +  (350-100 (log  W)  '  )(1.0  +  log,  W)  . 

s  10  10 

Curves  drawn  from  the  above  empix'ical  equations  are  compared  with 
DELFIC  printout  values  in  Figures  B.l,  B.2,  and  B.3  respectively. 

The  following  equations  are  derived  from  Delfic  printouts  of  fall¬ 
out  patterns.  From  the  referenced  minimum  radii  at  t  ,  the  cloud  ex- 

s 

pands  radially,  first  at  one  rate  and  then  at  another  rate,  until  the 
cloud  radial  expansion  termination  time  is  reached. 

The  cloud  radial  expansion  termination  time  in  seconds: 

=  (1.44444  -  0.0444W)t  1.0  £  W  <  10 

rt 

=  trt  10sl<  100 

120 


(B.16)  t 

rmax 

(B .  17  )  t 

rmax 


mm&Ms&sm aaaaasia 


FIGIRE  B-1  CLOUD  STABILIZATION  TIME  (t. ) 


where 

(B.28)  t 

r 


(t  -  t  +  1000)  /  3.3 
rmax  s 


and  t  is  the  time  of  deposition, 
d 


FIGURE  B-2  STABILIZED  CLOUD  ALTITUDES  (Aj,  AND  At) 


(B.18) 

t  = 

rmax 

(1.666  - 

0.333  log  W)t  . 

10  rt 

100  <  W  £  1000 

(B.19) 

t 

rmax 

(0.418  + 

0.83  log  W)t 

10  rt  ‘ 

1000  <  W  £  10,000 

(B.20) 

t  = 

rmax 

0.75  t 

rt 

10,000  <  w 

where 


(B.21)  t  =  2000  W 0,554 
rt 


The  cloud  radius  In  meters  at  t  : 

rmax 


(B.22)  r  =  (0.6587  +  0.1745  log  W)r  1.0  s  W  s  10 
max  10  t 


(B.23)  =  (0.81235  +  0.02085(logi()W)2)rt  10  <  W  £  1000 


(B.24)  r  =  r  1000  <  W 

max  t 


where 


(B.25)  r  =  2200  W°*301  +  W*'18 

v 


The  cloud  radius  in  meters  at  deposition: 


(B.26)  r  =  p  +  (t  -t  )(0.1  r  )  /  (t  -t  )  t  £  t  £  t 


min 


d  s 


min 


r  s 


(B.27)  and  r =  r  +  (t  -t  ) (r  -l.lr  )  /  (t  -t  ) 
d  min  d  s  max  min  rmax  s 


t 

r 


<  t 


<  t 

rmex 


r  =  r  t  £  t 

d  max  rmax  d 
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Appendix  C 


SEEK  II  SAMPLE  INPUT  AND  OUTPUT 

An  example  of  an  input  data  deck  for  a  SEER  II  run  is  shown  in 
Figure  C-l.  The  data  specifies  a  1  MT  weapon  burst  with  the  summer  wind 
at  Lake  Charles,  Louisiana.  A  hodograph  of  this  wind  is  presented  in 
Figure  2  in  the  main  text.  The  descriptions  of  the  input  data  are  dis¬ 
cussed  under  "Users  Instructions"  in  Section  II-C-4.  The  computer  out¬ 
put  for  thi3  example  is  presented  in  Table  C-l. 
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Preceding  peg^M 
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Table  C-l 

SEER  II  OUTPUT  FOR  EXAMPLE  PROBLEM 


SIMPLIFIED  ESTIMATION  OF  EXPOSURE  TO  RADIATION  <SEER>  MODEL 


RIJN  IDENTIFICATION—  1  HT  CHARLESTON  SUMMER  MIND 
NEAPON  YIELO 
TRANSPORT  TIME  LIMIT 
CLOUD  BASE 
CLOUD  TOP 

MINIMUM  CLOUO  RADIUS 
MAXIMUM  CLOUD  RADIUS 
CLOUO  FORMATION  TIME 
RADIAL  EXPANSION  TERMINATION  TIME 


1000.0  KILOTONS 
200000.0  SECONDS 
10*76.4  METERS 
19872.4  METERS 

10186.7  METERS 

21063.7  METERS 
550.9  SECONDS 

61257.0  SECONDS 


XINO  MODOQrAPH  AT  GROUND  ZERO 


altituoe 

X  COMPONENT 

Y  COMPONENT 

(METERS) 

(M/SECJ 

(m/SEC) 

500.00 

.71 

1.37 

1500. 00 

.11 

2,06 

3000.00 

•1.40 

.65 

5000.00 

•  1  .50 

-.37 

7000.00 

-.85 

-.57 

9000.00 

.27 

-1.52 

10000.00 

.41 

-.9* 

12000.00 

1.03 

-1.78 

14000.00 

0.00 

-2.57 

16000.00 

-3.73 

-1.74 

10000.00 

-7,49 

-1,87 

20000.00 

-12.35 

0.00 

24000.00 

•15.43 

0.00 

Table  C-l 


SEER  II  OUTPUT  FOR  EXAMPLE  PROBLEM  (Continued) 


007OSUO4  »4tC 

!»H«)C«|S 

I.Mff«|) 

i.siifr.os 

♦.«»«*»♦ 

7.3017f*0* 

S.MIffttl 

M}t|t«l* 

(•still*** 

3«?*S2t *03 
I .40644.03 

7.07794.02 

2,6701C*C2 
1 .33240.02 

7,39114,01 

7,4SJK«9l 

7,*5«*C-1l 

3.7ti*C-0l 

W*4*3C-0l 

MtlS(.|t 

*.***7e.«t 

I.UUCm*) 


•s. 94094,02 
•7,30044*02 
•1.I4730*#) 
•I.1*71C**S 
•1.911*1**1 
•t.ltflC*#) 

•3,53744.$) 
•*«7*r*c«*i 
-4. *5554.0) 
•••771*1*9) 
•1. Mill*** 
•t.*lttC*9* 

•<•1)094.0* 

-3.013)0.04 

M.um.fl* 

•5.711SC*** 

•?.«mc*fl* 

-1.97771.95 
•1. *79*1*95 
•<•071*1*95 
•<*  7iJlC.n5 
•i»«i«*e.QS 
•5.4*1*C«9S 
-7.15)71*15 


•4.9992C99 

-7.19954*00 
••*59l4t*#f 
•1*11*11*91 
-l.42150.0j 
•!.9**5£«01 
•4. *42 7£*f i 
•J»4l7*4*9j 

•9»lO**C  >9i 
•7.9*451*92 
*1 »•*•*! *f < 

•1.45504*02 
•1.10*44. #< 
•4.7l7|f.l2 

•5.95)*|*9{ 
•*.59974*94 
-5,57991*94 
•1*51494*93 
•1«<0I9|*93 
-4. *79*4*9) 
-5.54994*9) 
•*•*5194*9) 
•*•39*94*03 
•••791*4*03 


4*57314  *94 
5.9*9 14*04 
7*599*4*94 
9.1*75T*94 
|« 19744*05 
1*91374*05 
1*50954*05 
4«**21C*05 
5*959(4*95 
*•7*754*05 
*. 45*14.#) 
9« 77514*05 
1.15554*04 
I«95i5r*0* 
4«t511C*0« 
5*9 5)Sf«0* 
*• 194*4*0* 
5.73154.04 
7. •••94*0* 
l*97794«0i 
1. *7054*05 

4.94054*01 

4* 74)54*09 
3»il*7f *|5 
5.4*404*05 
7. 19*)f *99 


*•55094*94 
1. 1**51*03 
1**0 104*03 

t. 79*41*03 
4,43934*05 
9.90471*9) 

5.91*71*03 

5.90*51*03 

*•79*74*0) 
9. 1*314*95 
1. 43004*9* 

t*«043C«9* 
4 •49444 *0* 
3.14944*9* 
*•479*1*94 
5*05954*04 
•••90)4*04 
1 •09994*01 
1.59704*05 
2.00404. IS 
1.70444*15 

9.  79*94*95 
4.70044*09 
4.70404*05 
4* 74444*05 
4.70*44*05 


1.04144*04 
1.9t51l»04 
1 .02454*04 
I.t20§0*|4 
1.0314E.0O 
1 ••3904*94 
1. 4*014*04 
1.0*714*04 
1.IS4K.04 
l*07«|l*04 
1 .•••24*04 
1.20992*04 

1 . 39#ft *04 

1 .92490*0% 
1.71554*94 
1.12570*04 
2.07004*4* 
2.104*4*0* 
2.104*4*04 
2.10944*04 
2.10944*04 
2.1094|*04 
2.109*4*14 
2.10944*9* 
2.109*4*9* 
2.1044t«f* 


9*11994*99 
*«  3**24*09 
*.  '2994*00 
5. 09554*00 

3.9)194*00 

I. 59074*00 

J. MIfltOfl 
2.02394*09 
2*59 554*00 
2.320*4*90 
2* 00554*00 
1.  **294*00 
1,0*704*10 
1.75*94*09 
1.99114*00 
1*9095C«00 
t .1*274*10 
1.51794.00 
1.90004*00 
1.10001*00 
ltS|0«r*O9 
1.90101*90 
l*tlMC*l0 
1*90704*01 
1.59014*09 
1.9/101*00 


CX0OSU9!  9*TC 

2. *7(14.95 
1 .00*24. 0f 
1.51*54*09 
1 . 393)4*05 
1.21914*05 
1.122*4*99 
7.95104-9* 
5.19*74*9* 
*. 55124.0* 
3.09144.0* 
1.19*7(,0* 
1.10744.0* 
4, 90954.0) 
3. 04)54.0) 
<.•2*14*03 
1  *044.0) 
5.01934*1? 

2.4*154.02 

1*92444*01 

4.1*«lC*01 

I. 45544*01 
7. 190*4*00 
3*29904*00 
t*90UC«01 

J. 22KC-0J 
1.95414-04 


•2*22594*02 
•9.51074*02 
'*.•1144*02 
5M3C.0? 
•1.0*401.03 
•(.♦HWC.0) 
•1.04504.03 
•2.47014.93 
•3.31094.93 
•4.47214.0) 
•9.05144*0) 
••.29074.0) 
•1.12124*04 
•1.3)904*94 
•2. 05244*04 
•2.94*14«04 
•3.12204*04 
1. 374)4*04 
•7.37UC*f4 
•1.0)914*09 
•1 .30404.05 
•l. *0174*05 
•2.41074*05 
•3.99«7C*0S 
•*♦*1*74.05 
••.74704.05 


-•.22*44«0t 

•2.00**4*02 

-2.53*54.07 

•3.17232*02 

-*.M7«*M 

•3.24*14.02 
-*.•*•54.02 
-1.14204.02 
•1.22*14*0) 
•1. *5544.0. 
•2. 23*04 *0) 
•3.04234*0) 
•*.145)4*03 
•5.450*4*03 
•7*754 04*0) 
•1.03004*04 
•1.45040.0* 
•1.10770*0* 
•2*72520*0* 
•3*73700*0* 
•5.12710.0* 
-7.05440.0* 
•1.45230. 0* 
•1.324*0.05 

•1. •170C.0) 
•2.4**00.03 


2.37310.02 

5.19110.02 

7.30090*02 

9.147*0*01 

1«I9720*0J 

l.sisrr.a) 

1. 709)2*6 J 
2.94211*03 
3.53*10 *03 
4.79790*03 
6.45960*03 
••77310*03 
1.11950*69 
1.451*0*94 
2.23110*6* 
3.05550*6, 
9* 1*1. 0*3* 
5. 73110*0* 

7  »4S000«0* 
1. 97700*69 
1. *7650*65 
2. 92050* 05 
2.70)50*05 
3.01970*05 
5.26294*95 
7*11430*05 


5.9*431*02 

1.41970*0) 
!• 7)040*0) 
2. 175*1 *9) 
2.77020*0) 
3.90020*0) 
4.7)140*0) 
4.20400*63 

•.41900*03 
1 .1X00*64 
1.53550*04 
2.00440*04 

2.  •4)00*04 

3. «»130*94 
5.39*50*04 

7.202*4*04 

9.94741*0* 

1.3*330*05 
1  ••*921*05 
2.59310 *05 
3,05774*05 
3.05770*05 
3.05774*69 

3. •5770*0$ 
3.95770*05 
3. 05774*05 


1.92104*94 
1 •02990.04 
1 •02940*04 
1 •03090*04 
1.0)434*04 
1 •03994*04 
1.0*524*04 
1.033*0.04 
1 .0*5*0.04 
1 .092)0. 04 
1 . 1O410«|4 
1.3*190.04 
j •*•044*04 

i!t»9«c.9* 

2.92974*64 

2.10641*04 

2,164*4.04 

2.10944*04 

2.11044*** 

2.10441*0* 

2.10944*04 

*•10941*94 

2.10940*04 

>•10940*04 

2.10940*04 


5.043*0*10 
*•11530*00 
3.  •*•60*00 
3. 93570*00 
3«*9?30*IO 
3,14470*00 
2 «t|42£  *00 

2.9) 974*00 
2.3**  J4«00 
2.13730*00 
l, 97*00*00 
1 ••7200*0# 
1 »701*0.«0 
1*701*4.00 

1.9) 0)0.99 
l.»09|0*09 
(••1220*00 
1.19900*00 
1,50600*00 
1.I9M0*00 
1.59900*00 
1*91004.96 
1,51004*01 
1.59000*99 
1*90900*09 
1,99000*09 


I  4X*O5U#0  OAT0 

1  2*07170*03 

2  I.00190«95 

3  1.52950*65 

*  1*90090*05 

»  1.42124*65 

*  1.01*44*05 

7  0.60711.0* 

*  0.U77f*04 

1  *.5)730.04 

10  3.2l2*C*04 

II  2.13340*04 

12  1.31*90*04 

13  7.7*720*03 

1*  4.30910*0) 

15  2*31170*0) 

1*  1*1)790*03 

17  5.45900*62 

11  2.03530*02 

ii  i*mK«i2 

20  6*92400*01 

it  t. 31110.01 

22  1.)101C«90 

7)  1 . 10100—01 

26  1.10350-02 

25  0,316*4.04 

29  6.1S590-66 


•1.0M70.C* 
-4,03920.0. 
•4,14220*02 
-6.l099C«f2 
-7,01274*02 
•1.01390*03 
•1.39510*0) 
•1.70650*0) 
•2. 35240*0) 
•3.22400*0) 
•4.34550*0) 
••.5)1)0*03 
••.04200. I) 
•1.19)50.04 
•1,50590.|4 
•2.04400.04 
*2. •1510*04 

•3. •7910*04 
•5,314)0*04 
•7.2MlC*04 
-1.11744*04 
-1.37170*01 
-1. 90220*01 
•2,90294*01 
•3.54494*01 
-*.•4-70.05 


-1.740)1.02 

•9.31700*02 

•5,30400,02 

•9*7)150*02 

••*51120,02 

•1*1)920*0) 

•1*40590,0) 
-1*74950*0) 
•2*90590*0) 
•>••1260*0) 
-1*719 )f*0) 
•4.44)30*03 
•5. 50590*0) 
•1*25220*00 
•1*59)70*09 
•2.14150,09 
•).99)3C.0* 
•4 ,22210 *04 
•5. 70100,04 

•7,14050*04 

•1,959)4,05 

•1,45450*95 

•2,05500,05 

•2,61410,09 

•3,54174,05 

•9.30020*55 


2.37)10*52 

5.14010.02 

7*30550.02 

7.19712*02 

1.15724*0) 

1*91370*0) 

1*11130*9) 

2*09210*1) 

)«S302r«93 

9.74714*0) 

5.95904*#) 
•.77)14*0) 
1*27534*09 
1.43154*09 
2*2)110*09 
3.05)50. 09 

9.10290*04 

5*73154*04 
7. 690 90*04 
1*07790*0) 
1.47990*65 
2*62950*95 
2*7«35C*|| 
3*01 570*45 
5.24290*95 
7*154)4*05 


5.7*044*02 
1*44570*0) 
1.77054*0) 
2.21400*93 
2. 52744*0) 
3,99470*0) 

4.t|t7t*0) 
9.90100*0) 
••97040*0) 
1.19500*04 
l.i«370«04 
2.12514*04 
2.91550.04 
3.0530C*04 
5.40450*14 
7*)197l*04 
t.«m0*«i 

1.30654*05 
1 .*0374*15 
2,01000*05 
), 31160*05 
3. 32114.0$ 

3,32190*05 
3.32104*0 « 
3,32100*69 
3*321 00*65 


1.02150.04 
1. 02600. 04 
1.52040*#* 
1.0)110*04 
1.03450*94 

l .9)434*0* 
1.9*174*04 
1.05490*04 
1,04490*94 
1,00)50*9* 
1.19950*94 
1.36050*04 
1*99950*04 
1.54090*04 
1-52050*04 
2.10090*04 
2.1009C«|4 
2.10090*04 
2, 10690*0* 
2.10090*04 
2.100*C*9* 
2.10990*04 
2.10400*04 
2.10990*64 
2,10990*04 
2.10040*04 


0, 15)90*00 
1*07204 *00 
>••77)0*00 
3,41214*00 
3,30944*00 
3.12550*00 
2*00050*00 
2,41210*00 
2,)7>2C«00 

2,14002*00 

1,999 50*00 

1,64950. 0» 

1,77930*00 
1,450 50*00 
1,42710*00 
1,54104,00 
1,90100*99 
< ,50100*00 
1,50100*99 
1, 50190*00 
t,5090C*69 
1.5*104,00 
1.50004*00 
!,S000C*00 
1.5*000*00 
1.50000*00 
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Table  C-l 


SEER  II  OUTPUT  FOR  EXAMPLE  PROBLEM  (Continued) 


I 

CXPOSOftC  JHTt 

*  N2TC6S 

»  4272*5 

OR0UN0  01ST 

*ALL  U"C 

RA0IUS 

0092  RATIO 

1 

r«4itsc*ts 

•1*03972*62 

-2.13922*92 

2.37312*02 

4 .49361  *  0( 

1.02122*04 

4.92622*00 

2 

1,680S2*0S 

•2.46912*62 

-9.37042*62 

9*94912*62 

1.13062*63 

1.02902*04 

4,39662*00 

3 

Mmc«n 

•3.16992*62 

-4.37412*02 

7*34662*02 

1,34442*03 

1.0(442*04 

4,14)22*00 

4 

1 *36612*65 

-3.99292*02 

-6.23072*07 

9.14792*02 

1*73302*0) 

1.0(642*04 

3.90242*00 

s 

1.2114C.05 

-5.09421*62 

•1.63022*63 

1.14722*03 

2.21132*03 

1.03112*64 

3.64192*00 

4 

1.01)22*99 

•4*46642*42 

-1.36192*63 

1.51372*03 

2.34742*03 

1.03462*04 

3.37512*00 

7 

7*7|75C*64 

-6.46242*02 

•1.76962*03 

1 .96932*03 

3.74062403 

1.03902*04 

3.10272*00 

A 

9.9(272*04 

•1.15312*03 

2.64212*03 

5.06532*03 

2.63192*00 

9 

4,26392*04 

•1.34412*63 

•3.16332*03 

3.930l?*0) 

0.7«272*03 

1.09632*04 

2,97362*00 

It 

2.9(592*04 

•4.24492*03 

4.76792*03 

5.03262*03 

1,06942*04 

2.33042*00 

11 

1*14312*04 

-2.61762*63 

•3. 601*72*03 

4.45602*03 

1*22312*04 

1,007)2*04 

2.09942*60 

II 

•3.62492*63 

•7.6934^*03 

6.77312*03 

1.44202*04 

1.19712*04 

1,94572*00 

13 

g.M.TCXl 

•5.21442*63 

•1.07532*04 

1.19332*04 

2.24452*04 

1.36442*04 

1.04932*00 

14 

3*62392*63 

•7**2222*63 

•1.46632*04 

1*43142*04 

3,09152*04 

1.52072*04 

1.74162*00 

1* 

1.49242*63 

•4.73732*63 

•2.00742*64 

2*23112*04 

4.2(672*04 

1.70312*04 

1.64242*00 

1* 

7.43632*02 

•1.33272*64 

•2.74742*44 

3. 03352 '*• 

5»7I462*04 

1.94242*04 

1.41222*00 

17 

3.02272*62 

•1.62542*64 

-3.74312*04 

4.10(42*04 

7.92341*04 

2.10442*04 

1.99132*00 

It 

2*63212*02 

•2.36162*64 

-5.13722*04 

3.71142*04 

1,00592*05 

2.10642*04 

1.50002*00 

19 

1.07132*62 

-3.42992*4'. 

•7.070ie*04 

7.69062*04 

1.44I02*05 

2.10642*04 

1.50002*00 

29 

3.67162*61 

•4.73462*04 

-0,69742404 

1*97762*05 

2.04192*05 

2, 10442*04 

1.50062*00 

21 

3. 45242-01 

•6.45262*04 

•1.33032405 

1.47632*69 

2.60102*05 

2.10642*04 

1.90002*00 

22 

1*96332-02 

-6.69332*04 

•1.62312*03 

!<»))[•(! 

3.57412*09 

2.1064r«04 

1,90002*00 

23 

9.33042-10 

•1.21462*05 

•2.50442*03 

(.76392*09 

3.57912*09 

2.10642*04 

1,50002*00 

24 

2.44922-10 

-1,44712*03 

•3.43672*03 

3.61072*09 

3.37912*03 

2.10642*04 

1.90002*00 

25 

1.33*02-10 

•2.26762*09 

5.(4(02*09 

3.57912*05 

2.10642*04 

1.50002*00 

26 

6.47302-11 

•3.13992*63 

•6.47292*09 

7.19432*05 

3.97711*03 

2.16642*04 

1.50002*00 

I 

EXPOSURE  RATE 

x  02T2RS 

7  NCTERS 

OROUND  DIST 

7 ALL  Tint 

RADIUS 

DOSC  RATIO 

l 

2.44642*09 

•1.0(042*02 

•2.13672*02 

2.37312*02 

3.45902*02 

1.02062*04 

4.«d012*00 

2 

1.460)2*05 

-2.50442*07 

-S. 37032*02 

5.94912*04 

i.TOOlt'Ot 

1.02362*04 

4.64152*00 

3 

l.S0l«E*«5 

•3.14722*02 

i 

7.30092*02 

1.06532*03 

1.02472*04 

4,41942*00 

4 

l.I.MC’O* 

-3,44412*92 

•6.24442*02 

9*14792*02 

1,33342*03 

1.0262E*04 

4,16042,00 

5 

1.21112*0$ 

•4.g,aoc>ei 

•1.05192*01 

1.16722*03 

1.70132*03 

1.02822*04 

3.92242*00 

6 

1.01292*03 

-4, 55442*32 

-1.36422*01 

1.51)72*03 

2.204)2*03 

1.03112*04 

3,44572*00 

7 

7,76332*04 

•6.42122*02 

-1.792U.01 

1.969)2*03 

2,6995t*03 

1.03492*04 

3.34412*00 

6 

3.91632*04 

-1.14402*93 

•2.361 11*03 

2.64212*03 

3.65102*03 

1.04032*06 

3,06012*00 

9 

4,25912*04 

-1.52122*03 

•3.16642*03 

3,53612*03 

5.15752*03 

1.04742*04 

2,60452*00 

IP 

2.42122*04 

•2,0A*»C*03 

4.76792*03 

4,94952*03 

1.05772*04 

2.34412*00 

11 

1,65692  0  4 

-2.  V.  **03 

•3.61042*0) 

6.4S60EO3 

»,»iggE*gj 

1.07152*04 

2,29002*00 

12 

1.6*942*04 

•3.00172*03 

•7,90442*03 

6,77112*03 

1.27672*04 

1.09042*04 

2,04542*00 

13 

5.97592*45 

•3, 17412*03 

•1.07732*04 

1.19532*04 

t.»n[>gt 

1.19262*04 

1.93022*00 

14 

3.03652*03 

-7.07152*0) 

•1.47072.04 

1.6)192*04 

(.]*gu>g» 

1 .40402*04 

1.63512*00 

13 

1.46432*03 

•9.66002*03 

-2.01072.04 

2.23112*04 

2,25192*04 

1,74642*00 

16 

7,3*772.02 

•l.lUlCtgt 

-2,75192*04 

3.05352*04 

«,*ggrE«gg 

1.74142*04 

1,47042*00 

17 

3.79412*02 

*1.61242*04 

•3.74932*04 

4.16242*04 

4.09412*04 

1,95642*06 

1.40092*00 

:  * 

l.990ie*02 

•2.40362*04 

•3,14312604 

5.73192*04 

0.35472*04 

2,1 0642*06 

1.54322*00 

19 

1. 01*42*02 

•3.40552*04 

•7,00242*04 

7.65602*04 

|.l*55I«o« 

••iiii!*«4 

1,50142*00 

20 

1.63542*01 

•4.41052*0* 

1.07702*05 

2.10442*04 

1.50002*00 

21 

9.23142-91 

•4.40492*04 

•1.3323i>05 

1.47652*05 

».;s»gE*gi 

2,10642*04 

1,58402*00 

22 

1. 437JC-02 

•6,70022*04 

•1*62622*05 

2*  Q269F  *55 

2.95471*05 

2.10442*04 

1.50002*90 

(3 

5,29562-16 

•1,20422*05 

•2*50452*05 

2.76352*^9 

i.ijiii'gs 

2.10442*04 

1,50002*00 

(4 

2.41492*10 

•1.45922*03 

•3*44242*05 

1.61972*05 

3.63202*05 

2.10042*04 

1,50002*00 

23 

1,30942-10 

•2.27152*05 

•4.724)2*05 

5.24(0E«05 

3.63202*05 

2.10442*04 

1 ,50002*OC 

26 

4.47342-11 

-3.11752*03 

*6.49372*09 

7.194)2*05 

3.93202*05 

2.10442*04 

1,50002*00 

1 

2X603U6C  RATE 

X  NCTERS 

Y  HCT26S 

OROUND  DIST 

2 ALL  TJ*C 

RADIUS 

OQ62  6*T JO 

1 

i.t.fJC'g, 

-1.39102*02 

•1.92271*02 

2,37312*02 

2*71672*02 

1.0(022*04 

4,63712*00 

2 

1.50722*05 

•3.40072*02 

•4.43422*02 

5.94912*02 

4.63322*02 

1,0(252*04 

4,63712*00 

3 

1.51722*95 

•4. (6402*02 

•5.6217£«02 

7.30092*02 

6.36702*02 

1.02342*04 

4,46142*00 

A 

1.39632*05 

•5.34202*02 

•T.MI7E.0J 

4,14742*02 

1,04722*03 

1.02442*04 

4,43612*00 

9 

1.2241C<65 

•4.64142*02 

•9,45492,02 

1,14722*03 

1.33422*03 

1.626(2*64 

4,17762*00 

A 

i.o„«c*gS 

•6^67(42*02 

•1.22642*03 

1.51372*03 

1.73262*03 

1.02642*04 

3,90122*00 

7 

7.94442*04 

•1.16402*03 

•1.41172*83 

1.90932*03 

2.27712*03 

1.03152*04 

3.41332*00 

6 

4.U02E*64 

•1.54142*03 

-2.14042*03 

2.44(12*03 

3,02442*03 

1.03562*04 

3,321(2*00 

9 

•2. 07302*03 

•2.44442*03 

3.53612*03 

4.050)2*0) 

1.04142*04 

3.03142*00 

10 

),;*73C*|4 

•(.70472*03 

•3. 06302,03 

4.74742*03 

5,45022*03 

1.04432*04 

2,75242*00 

11 

I, y 6062* #4 

•3.76412*03 

•5.2)072*03 

4.45602*03 

1.06022*04 

2,49202*00 

U 

1.(4412*04 

•5.14232*03 

-T.iggot»gj 

6*77312*03 

i.gg«je*g« 

1.07502*04 

2  I47,r «a$ 

1) 

7.1)902*03 

•7.01642*03 

1*143 32*04 

1.16042*04 

1,09552*04 

2,0203' *05 

14 

3.62092*0) 

•9.56522*03 

•1,32222*04 

1*4)142*04 

1.66012*14 

1.21152*04 

1,90002*00 

IS 

1.97532*0) 

•l.3|77C*04 

•1,60742*04 

(.(3112*04 

2,55412*04 

1.43342*04 

1,61432*00 

16 

9.77022*#) 

•1.78062*04 

•2,47402*04 

3.95532*04 

3,44342*04 

1.56432*04 

1,72932*00 

17 

3. 19162*02 

•2.45152*04 

•3,30662*04 

4.ior*c*o4 

4,76741*04 

1.794(2*04 

1.45)12*00 

16 

(.51)62*02 

•3.35972*04 

•4,44412*04 

5.73192*04 

6.54162*04 

1.99)32*04 

1.56532*00 

If 

1.07662*02 

•4.40642*04 

•4,34732*04 

6.44412*04 

(.10442*14 

1,53(62*00 

*0 

4,50642*01 

•4.31702*44 

-6.73252*04 

1.07762*05 

2.10642*04 

1.10192*00 

71 

6.33112*00 

•6,44422*04 

•1,14792*05 

1« 17652*05 

1.44(42*15 

2.10642*04 

1,50*02*00 

(1 

6.51(92-61 

-1.160|C«05 

•1.44352*05 

MIliMS 

2,3(2(2*05 

2.10442*04 

1.90002*00 

73 

7.(4442-61 

•1.63152*03 

•2.25522*05 

2.76352*05 

3.16642*05 

2.10642*04 

1.50002*00 

(A 

1.M29C-01 

-2.23092*05 

-1.09472*05 

3.61972*05 

-.67952*05 

2,10042*04 

1.90002*00 

(5 

1.61422-61 

•3.07(62*03 

-4,24712*05 

5.14 

4.07952*05 

2.10442*64 

1,50002*00 

74 

9.00122-02 

•4.21492*03 

-S»6(C9£*0S 

T.l»v3C*05 

4,07452*05 

2.10442*04 

1,50002*00 
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Table  C-l 

SEER  II  OUTPUT  FOR  EXAMPLE  PROBLEM  (Continued) 


u 

I 

exposure  r«tc 

»  utttus 

Y  »»CTE«S 

OROUMO  07ST 

fall  time 

RADIUS 

cost  *»*io 

t 

1 

2.47 l 12*0) 

-1.74342*02 

-l.fioie*#? 

2.37312*02 

2.04142*02 

l.Q|90E*04 

4,79452*00 

7 

* 

U499«C*iS 

-4.38522*02 

.4.0497**0? 

S.4641C«02 

5.14412*92 

1  *!214E*0f 

4,79932*00 

7 

3 

1.32132*03 

-4.438?2*8? 

7.30)91*92 

t.mu«i2 

l«0I22E«of 

f.799SC«09 

7 

4 

1.4«2llE«9S 

•4. 71052*5? 

•f .204«C*0<> 

f • lf7ff ♦#! 

7.44ICEM2 

1. 92311*04 

4,72722*00 

7 

5 

1,23192*03 

-?.»i*9r*9i 

1.14722*03 

1,01412*9) 

1.02442*04 

4.40M2*90 

7 

* 

l.tHHOi 

-Uiwoe*i3 

•MI’KM) 

1 .31372. #3 

i.mitM) 

l«924ie*0f 

♦»14t#E*09 

7 

7 

R. 02342*04 

•1 .*4142*03 

•l.)496C«Q3 

1.9093E**) 

1.72032*93 

1.92042*94 

3*99272*90 

7 

• 

6.10972*04 

•1.94102*9) 

•1.74252*13 

2«fA2ie«o3 

?, 24352*43 

U9314CM4 

3,4|3)C«M 

7 

9 

4.34*K*04 

•2.54422*13 

•MtlttM) 

3*33air«o3 

1.43592*04 

).)|3SE«00 

7 

le 

3.24492*04 

-3.50272*03 

•3.23402*0) 

4.74792 •)) 

f.lftS(*!3 

i*4fm«9f 

3*9991C«99 

7 

V 

?.i*ric»o« 

•4,74242*0) 

•4.3801£«|) 

4.45492*03 

S,i|flC«|] 

1.059tt*04 

2*72942*40 

7 

u 

1,34532*04 

-4.4'-Sl2*0) 

•S.tS2ll»|) 

«.773IE*03 

7.4*232-03 

1  •04JSE*0f 

2.44702*00 

7 

is 

9*  09392*03 

-8.7fUC*03 

-b,lo4*£.0) 

|. 14332*04 

1.43052*44 

1.07792*94 

2.22202*00 

7 

u 

4,l2ti;«0) 

*1.14192*04 

•i.l#72C«0f 

l .4319E*|4 

1.949)2*94 

1.94042*60 

7 

t5 

2*51«0C*03 

•US137£*04 

2*231 12*04 

1.20092*04 

1  .49412*09 

7 

u 

1.22192*0) 

*2.24))C*04 

•2.07172«04 

MSlIt'lt 

I.4917C*49 

7 

17 

4.11342*0* 

•3,07*62*04 

-2.93762*04 

4.11242*04 

ItHlIClt 

U404RE*9f 

1,71972*09 

7 

ia 

2.95042*92 

-f  ,muMt 

•3,«iMe«if 

5*7319E«M 

t>«IIIE<lt 

1.02742*94 

l*4ff3E«49 

7 

if 

I t Iff *C*02 

•5. 773f C«Qf 

-3»3)16£*|4 

7«IMK«tt 

4»02T4E*|4 

2*91 I4C*0f 

1.57712*00 

7 

*? 

5.2*f»C«0> 

•7,*uu*o!. 

•7.31242*04 

1.07742*05 

9.344)2*04 

1,52572*00 

7 

?i 

2«*2fTC«0l 

•I.OU2E»tS 

•1.IQ)1E«8S 

1.47432*03 

1.20442*03 

2,10442*04 

1  «S01f c*oo 

7 

12 

3.9S30E*09 

•l.*f02E*| 

•I.JTUCmJ 

2*02852*63 

1,74242*93 

2,10442*04 

|.S09«C*00 

7 

21 

f.TOOit-Ol 

•2.0444C*05 

•MHf{«t) 

7.?I33E«|S 

2.410)2*15 

2.10442*04 

1. SOME. 00 

7 

If 

4.U8CE-01 

•2.4M1C*0S 

-2.39152*05 

3.R 197f  *35 

). 31442*45 

2.1l44C»0* 

l.S99»E*99 

7 

M 

2.0T**E-Al 

•3.051o£*03 

-3.S54*E*03 

5.24282*05 

f*32ls.C»45 

2,10442*04 

1.30002*00 

7 

2* 

1.03722-01 

•l,2l52(*t) 

•4.49102*03 

7.14432*13 

4.321*fc*43 

2.10442*04 

1  •$090C*99 

If 

1 

EXPOSURE  PfTE 

X  PETERS 

Y  METERS 

GROUKO  01 ST 

e*ll  time 

RADIUS 

0052  RATIO 

9 

1 

2.47122*05 

-l.f47fE.fiZ 

-t.2V42C.92 

2.3731E.02 

1 *Sf ffC«02 

1.01952*0* 

4.74422*00 

8 

2 

1.4095E»OS 

-5.0000C.02 

•3.24Q3C.Q2 

S*fff 1C«02 

3*49721*82 

1.02092*04 

4.74422*00 

• 

3 

l.S207f*O5 

-f.122fE.02 

-3.992ie.Q2 

7.3849C.82 

f  *772?£«  ‘.1 

l.OllfCOf 

4.74422*00 

f 

Uf9l2E.es 

-7.6f2fC.02 

-f.M45C.42 

9.14792*0* 

-  9727C.02 

1.02292*04 

4.74422*00 

9 

3 

W«0?E*0S 

-f.7773E.02 

•4.37532.02 

1.1472E.03 

62092*02 

1.02302*04 

4.75912*00 

9 

4 

I •OSSIE* fS 

-l.2fC0E.03 

•4.24772*02 

I.SI37C.03 

..•■30E..02 

1.02422*04 

4.51172*00 

4 

7 

9*99l«E.04 

-1.4M3C.03 

-l.08f5E.03 

1  *f if 3f  *03 

1.2f49C0) 

l.024«C*0f 

f.21342«0S 

9 

4 

f.UlTf.Of 

•2.21MC03 

-l.ff3lE.03 

2.ff21E.Q3 

1.72S0C43 

1.02442*04 

3.99791*00 

4 

9 

f.SfiSLMf 

-2.ff3-C.03 

•1.9323C.03 

3k  53412*03 

2.31002*03 

1.03142*04 

3.5974F  *01 

4 

19 

3*23lfC0f 

-3.ff4fE.03 

-2.40f2E.03 

f .74742*03 

3* 11 3q£*03 

1.03412*04 

3.H.97U00 

4 

u 

2*14lfE«9f 

-S.f07fC*03 

-3.S2f2C.Q3 

4.f S40C«03 

4.21S2C03 

1.04232*0* 

2.993hf*0Q 

R 

12 

U3f22E.«f 

-7.34i0C*03 

-f.7911E.03 

f .77312.83 

S.7240C*03 

1.05002*04 

2.71212*00 

4 

13 

«*1422E.0l 

-l.W0l3C.0f 

-4.SC4fE.03 

l.lfS3C«9f 

7.40452*03 

1.04252*04 

2.4479EM0 

4 

If 

fj4»*10) 

-1.3470E.Of 

•4.9132C.03 

:.431f2*9f 

1.04552*04 

1.07452*04 

2.2020C«00 

4 

IS 

2.S4S3E.03 

-USfCfC.Of 

-l.2144C.0f 

2.2)112*94 

UfSfTC-O* 

1.10042*04 

1.995ir«00 

4 

14 

1*37411*03 

-2.557IE.of 

-l.4f74E.0f 

3*0*.3Se«Of 

1.99)72*95 

1.19452*04 

USR7S<«0C 

9 

17 

4.79)92*92 

-3.S03fC.0f 

-2.2<ffE«0f 

f .14242*04 

2.7)972*04 

l. *4212*0* 

1.79572*00 

4 

1R 

3*3ff9E.02 

-f.«01fC.0f 

-3.1307E.0f 

S.731fC.0f 

3*7f 2*2*04 

1.42442*0* 

1.71252*00 

9 

If 

1*27242*02 

-6.5830E.0f 

•f.292fE«0f 

7.R544E.04 

S. 13192*94 

1.05192*04 

1.63772*00 

9 

39 

4*f 937E.01 

-9»028f C*0f 

-5.l8f9E.0f 

l*0777.r«0S 

7.03712*0* 

2.03252*04 

1.57072*00 

4 

7*1 

3.307ff*0l 

-1.2345C.05 

-i.O755E.0f 

l.f745f.05 

f«4S33C*wf 

2.10242*04 

1,51492*00 

4 

ft 

l*7«9SE.9l 

•U19«QC«0S 

2.024S2.0S 

1.32f*C*0S 

2. 10442*04 

1.502*2*00 

9 

23 

2.4375E.40 

-2.3314C.99 

•1.S203C.05 

2*74352*03 

1.41732*05 

2.10442*04 

1.50002*00 

• 

If 

2.72422-01 

-3. Iff 4C. OS 

-2.0if3E.05 

3.Rtf 72*05 

2.49392*05 

2.10442*0* 

1,50002*00 

4 

IS 

2.41902-01 

•f.3flOC«4*. 

-2.443lE.fS 

S*rf20E*o5 

3.42252*05 

2.10442*04 

1.50002*00 

4 

74 

I. 20*42-01 

•4.024 3C«|S 

-3.92f5E.0S 

7*lf >3C*0S 

4.55942*45 

2.10442*0* 

1.50902*00 

1 

EXPOSURE  RfTE 

*  «£TCR) 

Y  MCTCRJ 

ground  oist 

FALL  1.4C 

RADIUS 

DOSE  RATIO 

l 

2.47042*05 

-?• 14)42*02 

-t.7499C*01 

2.37)12*02 

1,17942*02 

1.019)2*04 

4.73402*00 

2 

1.4R4)C*0S 

•5. *4202*02 

-2.45242*02 

5.94912*92 

1.01032*04 

4.73402*00 

'* 

1.51702*05 

•4.44342*02 

■iittiinii 

7.30492*02 

!.»««•« 

1.02072*04 

4.73402*09 

4 

U3944C*0S 

-5. 34Q2C-02 

•3.  /59*k’*02 

9*14792*92 

1.02122*04 

4.73902*00 

5 

1-22422*05 

•U0642C*03 

-4.7fS3C*02 

1*147 2E *03 

S. •!)•(•*< 

1,01192*04 

4.7)402*00 

4 

1.02012*03 

-1, 39*12*0) 

-4.21902*92 

1.31372*0) 

7.52492*02 

1.92292*04 

4.73402*00 

7 

7.9120C*#* 

•U913oC*|3 

-».1729C*92 

1.91932*0) 

9,44792*02 

1.12422*04 

4.512)2*00 

R 

4,05372*04 

-2.49492*03 

•1,98S5C«93 

2.642;C*03 

l.lDMol 

1,02412*04 

4.20142*00 

V 

4.43JCE*!* 

-), 22571*93 

•1.43342*9] 

3.330  It  *|3 

1.75042*0) 

3.94922*00 

3.1241E*#* 

•4.3449C*|3 

•1,95492*93 

4,74792*9) 

1.03212*04 

),)7042*00 

11 

-5. •4402*03 

•2.4524C«03 

4.45602*9) 

MtniM) 

l.9347C*if 

3,25922*00 

M 

1. 25*71* #4 

•7.90I4C«C) 

R. 77312*4) 

1.04312*04 

2.96122*40 

13 

7,51I1C*43 

•1.0RC9E«04 

•4*91192*93 

1.19532*44 

5.94152*0) 

1.05202*04 

2.47972*00 

14 

4,ri41C*0) 

-1,4«74C*04 

•4.74452*43 

1.43192*04 

1.04422*04 

2.41442*90 

15 

2.29842*03 

-2.03*12*04 

-9.144)1*03 

2«2)11C*44 

l.IHlMt 

l.OOQfC’Ot 

2,17202*00 

14 

U229«C*0) 

-2.74392*44 

•1. 23432*14 

1. 05)52. 04 

I.SITU’tk 

1.10392*04 

1 .97932*00 

17 

3.9 44|E*02 

•3.9131E«04 

•1.71432*94 

4. 14242*04 

l,S?i*E<(« 

1.354  32  *  04 

1,97492*44 

18 

3.1S«9e*92 

-5.22392*04 

•2.3)492*94 

5.73192*94 

2,04912*04 

1.40132*04 

1«7R)92«00 

19 

U25I2C*02 

•7.14492*04 

•3*22 98£*84 

7f  4590€*04 

3.9943£*94 

1,4)3»E*04 

1,70142*00 

If 

4.20l5C*0 \ 

•9 »R3i!E*94 

•♦, 42412*04 

1.07742*45 

3, 3)732*04 

1.92)42*64 

1,42442*09 

11 

3»30*8C*0l 

•1.34992*0) 

•4.07442*04 

1.47452*9) 

7.34912*44 

2.10442*04 

1.341)2*04 

II 

1.931)2*01 

•1.84942*05 

•4.33412*04 

2.0tASE«95 

MIlIEM) 

2,10442*04 

1 .51132*00 

23 

1.22102*11 

-2.53772*03 

-1.14342*05 

2.79JSZ.0S 

1.38352*9) 

2.18442*04 

I.f9l72*49 

It 

uoif«e*eo 

-J,4»78|*03 

•  l.S49K*0) 

1.00042*9) 

2.10442*64 

1.39002*00 

IS 

I .54472-01 

-4.77f2€*|5 

•2.15372*03 

5.242»£*43 

I.USWMS 

2,10442*04 

1.59092*00 

26 

1.34542-91 

•*.5»*02»03 

•2.95172*95 

7.194X«03 

3.)7492*i) 

1.34092*90 
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Table  C-l 


SEER  II  OUTPUT  FOR  EXAMPLE  PROBLEM  (Continued) 

1  1  NT  L4*C  CmA"**£*  SUMMCW  UlHO  NAP  OUTPUT  IS  IN  CAPONtNTIAL  F09NAT 

,|4IW)'  -2)4000.  -222100.  MMM*,  *142010.  *1)1111. 

250*0.  .  . 

tllll.  . .  , 

me*.  . .  .  , 

mi.  . . 


i, 


•mo. 

• 

* 

• 

• 

• 

• 

• 

. 

• 

• 

• 

• 

• 

• 

• 

. 

4 

,509 

>376 

•HIHt 

• 

• 

■ 

• 

• 

• 

• 

« 

• 

• 

• 

• 

• 

• 

•  333 

,999 

.455 

•  739 

.93) 

•1)041. 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

.331 

.392 

.460 

•>«0 

.030 

.935 

1.044 

1,259 

•2(1(4. 

• 

• 

. 

• 

• 

. 

• 

• 

• 

•  504 

.365 

•  633 

,7:o 

•too 

,90) 

1.92) 

1,1*3 

1.320 

1.52* 

1,933 

•2)401. 

• 

• 

• 

• 

• 

• 

• 

•  934 

.343 

•  454 

.7*0 

.936 

.4*7 

1.077 

1,229 

1.409 

1.421 

1,979 

2.19*  2,465 

OHII. 

• 

• 

• 

• 

.904 

,940 

.414 

•  446 

,743 

.950 

.9*3 

1,101 

1,230 

1.446 

1,649 

1.9)3 

2,292 

2,4*0 

3.116 

3,042 

0)4(0. 

• 

• 

.917 

.971 

•432 

,702 

.792 

.073 

,97* 

1.100 

1.234 

i.**5 

1.640 

1.934 

2,254 

2.6*3 

3.117 

3.700 

4,424 

5,316 

•(olio. 

•SIT 

.972 

•  63* 

•  7fl9 

.797 

.979 

.404 

1,109 

1,252 

1  *1* 

1,631 

1.091 

2,20* 

2.579 

3,036 

3.400 

*.29* 

3,161 

4,242 

7,944 

•4)110. 

.42* 

.*97 

•  f  77 

.049 

.479 

1.099 

1.23* 

l.*09 

1.990 

1.626 

2.112 

2, *69 

2.900 

3.430 

♦  ,074 

♦  ,904 

9,093 

7,1»*  ..•!» 

l 

1*119 

**•000. 

.737 

.047 

.990 

1.070 

1.207 

1.367 

1.594 

1.775 

2.01* 

2.3*3 

2.727 

3,212 

3.010 

*•544 

9,442  6,609  9,04* 

9,92* 

1 

1.2)7 

1 

1.371 

-**•00. 

.01* 

1.0P9 

1.141 

1.312 

1.491 

1.699 

1.949 

2.236  2.903 

3,001 

3,511 

*4>1Z  *.010  ,.00} 

7,204 

0,900 

1 

1,090 

l 

1,349 

l 

1.5C0 

l 

1.390 

oiiii. 

1.10* 

1.246 

1.41) 

1.60# 

1.H37 

2  Uf 

2.429 

2.013 

3.27* 

3.431 

*.512  5. *02  4,311 

7.915 

9,470 

1 

1.10* 

1,2*3 

1 

1,312 

1 

1.393 

1 

1.495 

•4)100, 

1.310 

1.9)9 

1.719 

1.447 

2.261 

2.610 

>.0?o 

3,520 

♦.136 

*,8)0 

5,740 

6.902 

0,407 

9.473 

1 

1,027 

1.079 

1.1)3 

1 

1,202 

1 

♦.279 

1 

♦  ,5)r 

1.9*3 

1.919 

2.0H 

2.491 

2.777 

3.229 

3.765 

«•*!*  j.zi»  o.ioo 

7.413 

4,191 

0,449 

0.902  4.201 

9. 477 

1,02* 

1 

3,942 

1 

♦.097 

1 

*.3*1 

•»J000. 

1.91* 

2.192 

2.924 

2.927 

3.403 

3,977 

*.660 

5.319 

6,560 

6,403 

7,023 

7,199 

7,674 

7.799 

9,104 

3.303 

3,479 

l 

3,476, 

1 

3,995 

l 

♦•!♦♦ 

*••••0. 

2. 207 

2.419 

3.099 

3.997 

*•142  4.990 

9.729 

3,111 

3.911 

6,029 

6.16* 

',320. 

6,356 

2.035 

1 

2,474 

3,120 

3.299 

1 

3,490 

1 

3,704 

1 

3.947 

•Il'fl, 

2.730 

3.171 

3.493 

4.319 

*•939 

♦  .900 

*.*71 

3.03* 

9,151 

3,263 

5,393 

1 

2, *57 

1 

2.352 

2.674 

1 

2.011 

2.940 

3,125 

1 

3.310 

1 

3.319 

1 

3,752 

•mu. 

3.20* 

J.944 

*.M7 

*•12* 

*.177 

•mi** 

*.309 

4,346 

♦  ,477 

l 

2,211 

1 

2.2*4 

1 

2.313 

1 

2,*1C 

2.525 

l 

2.495 

2,799 

Z.0S0 

1 

3,137 

l 

3,334 

1 

3,561 

•Mill. 

1.444 

3, 479 

3.910 

3.9*9 

3.4*9 

3,694 

1.720 

1 

2.003 

1 

2.093 

1 

2.030 

I  1 

2.079  2,157 

1 

2.249 

2.303 

1 

2.909 

2,4*0 

2, 160 

1 

2,970 

1 

3.097 

1 

3.111 

•iirni. 

2.444 

2.973 

3.9*7 

3.447 

3.042  3,144 

1.002 

1 

1.797 

1  1 

1,012  1,9*7 

1 

1,906 

1 

1.993 

l 

2.11* 

2,254 

1 

2.349 

2.S02 

2.0*9 

1 

2.479 

1 

2.431 

! 

2.479 

•10)111. 

2.913 

2.9*0 

2.972 

2.409 

1.430 

1 

1,40* 

1,593 

1 

1.690 

1 

1.423 

1 

1,667 

l 

1,732 

1 

1.023 

1 

1.931 

2,119 

1 

2.2*0 

2.345 

2.303 

1 

2,231 

1  1 

2.239  2.27* 

•llOtIO, 

2.1*0 

2.149 

l.*93 

1.4*2 

1 

1*413 

1 

1.399 

1 

1.390 

l 

1*412 

l 

l,**2 

l 

1»*#1 

1 

1,541 

1 

1.456 

l 

1.7*3 

1.452 

1 

2.09) 

1.979 

1.90) 

1 

1.9*7 

1.949 

1 

1,907 

•umi. 

1 

1.392 

1 

1.313 

1 

1.242 

1 

1.233 

1 

1.2U 

1 

1.211 

1 

1.217 

1 

1*237 

1 

1,271 

1 

1.322 

1 

1.393 

1 

1.999 

1 

1.413 

1.701 

1 

1.077 

1.6o4 

!.}»} 

1 

1,5)2 

1 

1,9*0 

1 

5.379 

•121000, 

1 

1.11* 

1 

1.299 

1 

1.067 

1 

1.049 

1 

1.039 

1 

1.949 

1 

1.092 

t 

1.075 

1 

1.111 

1 

1.143 

1 

1,233 

1 

1.324 

1 

1,333 

1.330 

1 

1.319 

1.29* 

1,29* 

l 

1.**) 

1 

1.294 

1 

1.294 

•lOltl. 

9.104 

t.in 

9.464 

9.9*2  9,420 

9.979  4.923 

4.272 

4.44J 

1 

1.015 

1 

1.042 

1 

1.9)0 

1 

4.067 

1.035 

1 

1.0*1 

1.0*4 

1 

1.009  9,99) 

l 

1,01* 

1 

J«0*9 

•»(«(. 

7.449 

7.937 

*  .*75 

7,*2A 

7,4)4 

7.921 

7.605 

7.937 

0,2*7 

9.447 

9.393 

0.124  0,4*3 

0.392  9,291 

0.1)7 

9,021 

7,940 

9,11) 

9,339 

*139090. 

6.094 

6.1*0 

4.191 

4.149 

6,229 

*  ..12* 

6.499 

4,747 

6,972 

4.941 

4,419  4,747 

6.705 

6,433 

6.19# 

4,474  4,391 

*,)tl 

6.41) 

4,992 

•23*000.  •<♦«•(.  •»»(«.  •fUtOO*  •2941(0.  •Kllft,  «!•••••.  •UlltO.  *ll4||(t  *1(4010. 
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Table  C~1 


SEER  II  OUTPUT  FOR  EXAMPLE  PROBIZM  (Continued) 


$T*I»  *  I  xr  L**l  CHaPlCI  «ummc«  nino  OUTPUT  II  IN  cxponcntul  POmuT 

•  12*410.  •114004.  •I020II.  •«•**•.  •TO***.  -4M00.  -4*110.  •4TH*,  •1*101.  -I****. 


• 

• 

• 

* 

• 

• 

• 

» 

• 

• 

, 

•  ♦  , 

, 

• 

, 

!«•!(, 

• 

, 

•  9*1 

i.«T*  a.**r 

6.106  6.126 

1 

1,002 

1 

1,460 

1 

1*636 

1  1  1  1 

2,293  2,613  3,479  4,)0l 

• 

, 

ifoo*. 

* 

. 

.554 

1.19* 

l>*l)  S.lt* 

1 

1,017 

1 

1,366 

1 

1**99 

1 

2,409 

1 

3,693 

I  1  1 

3,066  4,836  4,413 

1 

6,644 

2  2 

1.1*1  2,1*6 

um. 

. 

* 

.oil 

1.640 

3*553 

9,439 

1 

1.495 

1  1 
1.967  2.622 

1  1 

3,499  4,511 

1  1  1 
5,69“  7,145  9,959 

2  2  2 
1,425  2,410  5,610 

sun. 

, 

. 

. 

1.328 

2,794  5.999 

1 

1,211 

7,410 

1  1 
3.213  4.204 

1 

5,713 

l 

9.364 

1  2  2  2  2 
4,335  1,179  1.692  2,514  5,o«5 

3 

1,101 

o. 

• 

1.447 

3,122  6,511 

1 

1,350 

l 

2,906 

1 

3,005 

1 

4,0*0 

1 

6,391 

1 

6,264 

£  2  2  2  2 

3 

1.314 

-SOI* 

.09* 

.9*1 

•  «44 

.963 

1,1*3  2*030 

4.116  0«209 

1 

1.621 

1  1 

3,19*  4.J34 

1 

5,005 

1 

6.019 

£ 

1.061 

£22 
1.43S  1,435  2,9*4 

2 

4,621 

2  3 

4.442  1,329 

-HIM. 

.004 

1.159 

1.346 

1.5*3 

1.095 

3.113 

5.425 

1  1 

1,112  2,053 

t  1 

3.900  S.)47 

1 

9.4|3 

2 

1.033 

2 

1,444 

2  2  2  2 
2,014  2,640  4,9*1  6,452 

3  3 

1,490  9.3«4 

•ISIM, 

1.406 

1.992 

2.120  7.59) 

3,1*9  4.009 

8*690 

1 

*  ,53* 

1 

2,656 

1 

4.449 

1  1 
6.562  4.253 

2 

1,319 

£222 

1 .4o3  2,90*  4,22*  5,933 

3 

1.696 

3  3 

2.826  4.226 

•iiim* 

7.21* 

2.915 

3.132 

4.151 

5.233 

7.530 

1.296 

1 

2.171 

1  1 

3,516  5,494 

l 

6,904 

2 

1,144 

2 

1,691 

2 

7.469 

2  2  1 
3,149  6.459  1*149 

3  3 

1,696  2,216 

3 

3,070 

J.i*j 

4.)  |2 

5,101 

4.623 

0,602 

1 

1.149 

1 

1,463 

1 

3.119 

1 

4.959 

6.41* 

4.921 

2 

1.3*5 

2 

1.939 

2 

5*066 

2  2  3  3 

6,494  0,359  1,042  1,349 

3 

1.942 

3 

1,600 

-HIM, 

4.041 

4,195 

9.4114 

1 

1.044 

1.6tfl 

1 

1 .432 

1 

3.024 

t  1 

4.554  6,502 

1  1 
0.20*  4,623 

2 

2,050 

2  2  2  2  2 
3,63)  4.639  5,954  7,41)  4,066 

3 

1.092 

3 

1,244 

3 

1.240 

•390*0. 

9.IIM  l.»z 

1.221 

1 

1.6.3 

1 

2.240 

1  1 

3,1*3  4.934 

1  1 
5.970  6.686 

l  2 

9,769  2,116 

2 

2,502 

2 

3.240 

2 

4,213 

2  2  2 
5.102  6.352  9,Te* 

2  2  2 
6.6)4  4.144  9,101 

•Kill, 

1 

1.039 

1 

1.391 

1  1 

1.052  2.555 

1 

3.543 

1 

4.052 

1 

4.643 

1 

5,379 

2 

1.510 

7 

1.936 

2 

1.908 

2 

2,338 

2  2  2  2  2 
2,944  3,617  4,4)2  5,426  6,433 

2 

6,445 

2 

4.444 

2 

3,444 

•4540A. 

1 

1.400 

1  1  1 
2.»il9  2.425  2.459 

3.*l*4 

l 

3.949 

2 

1,070 

2 

1.236 

2 

1.423 

7 

1.637 

2 

1,8*4 

2 

2.140 

2 

2,526 

2  2  7  2 

3.107  3,615  ),*20  5,194 

2  2  2 
5.344  5.434  2,923 

•S^lll. 

l 

1.991 

1  1 
2.159  2,432 

2.749 

1 

9.304 

1 

9.206 

2 

1,023 

2 

1.166 

2 

1.341 

7 

1.542 

2 

1.934 

2  2 
1.443  2,142 

2 

2,474 

2  2  2  2  2  2 

3,293  3,765  4.16)  4,269  2.112 

-99010. 

1 

1.744 

1 

1.442 

1 

4. 464 

1 

9.154 

1  1 
9,415  8.999 

1 

4.754 

2 

1.049 

2 

1,260 

7 

1.465 

2 

1.591 

2 

1,9*2 

2 

1.464 

2  2  2  2 
2.3*9  2,961  3,131  1,4«6 

2 

2,544 

2 

1.942 

2 

1.594 

•40009. 

1 

9.000 

1 

5.504 

6.141 

1 

o.OoJ 

9,538 

l 

0.355 

1 

4,248 

? 

1.029 

2 

1.13* 

7 

1.290 

2 

1.422 

2 

1.598 

2  2 
1.613  2,069 

2  2  2 
2,11)  2.623  2,654 

£ 

3,0)5 

2 

1.494 

2 

1.141 

•49000, 

1 

4.414 

1 

5.313 

1 

s.ato 

1 

4.44* 

1 

9.135 

1 

9,94* 

1  1 
0.003  9.600 

2 

1,026 

2 

1,146 

2 

1.2*9 

2 

1.451 

2 

1.650 

2 

1.019 

2  2  2 
2,009  2.214  2,440 

2 

1.2*9 

*  1 

1.144  9.501 

•90099. 

1 

•  .4)1 

1  1 
9.029  5.54* 

1 

4.131 

l 

6.942 

1 

9,34/ 

1 

9.943 

1 

0.611 

1 

4.366 

7 

1,039 

2 

1,164 

2 

1,316 

2 

1,454 

2 

1,549 

2  2  2 
1.952  1.414  2.11* 

2 

1.091 

1  1 
4,754  5,646 

•99000. 

1 

*•*94 

1 

4.991 

5.256 

1 

4.964 

6,226 

1 

6.919 

1 

9.2*4 

1 

9,879 

6.599 

1 

9.394 

2 

1,052 

2 

1,167 

2 

1.295 

2 

1,346 

2  2  l 

1.514  1,655  4,691 

1 

6,904 

1 

5,644 

1 

4,159 

•40100. 

1  1 
4.723  4.5*2 

4.914 

1 

5,2*4 

1 

5.609 

1 

6,134 

I 

6,641 

1 

9.205 

1  1 

7.763  0.444 

1 

9,303 

2 

1,021 

2 

1.114 

2 

1.209 

2  2  1 
1,305  1,421  9,569 

1  I  1 

4.419  4,34)  2.454 

•09000. 

1 

4,«?0 

1 

4.219 

4<4I4 

1 

4.029 

1 

5.194 

1 

5,609 

1 

6,069 

1 

6.499 

1 

6.649 

1 

9,459 

1 

7,062 

1 

6.832 

1 

9,662 

2 

1.939 

2  2  1 

1.121  1.214  4,1*0 

1 

*,969 

1 

3.1)1 

1 

1.444 

•90000* 

3.433 

l 

3.792 

4.454 

1 

4,4*3 

1 

4,740 

1 

6,124 

1 

6.450 

1  t 

5.406  5.9*4 

1 

4,051 

1 

6,733 

1 

7,005 

1 

7,494 

1 

6,004 

1  1  1 
4,044  5,121  4,043 

1  1 
3,12)  2.144 

1 

1,315 

•49090. 

1  1 
3.143  3.392 

3.4*4 

1 

1,494 

1 

4.336 

1 

4.619 

k  1 

••620  4,705 

1 

♦  .90S 

1 

4.921 

1 

4.042 

1  1 
5,109  5,647 

till 
6,976  6,152  4,216  1,663 

1 

2,261 

1 

1,505 

, 

•UOOOf. 

1 

2,944 

2.4f9 

J.1SZ 

1 

3.4*3 

1 

3.421 

1 

3,450 

1 

3.666 

1  1  1 
J.877  3.633  3.558 

1 

3,633 

1 

3,*10 

1  1 
3,659  4,431 

1  1  1 

2,940  3,255  2,231 

1 

1,62) 

l 

1,003 

♦ 

•109000. 

2.3*»0 

1 

2.542 

2,919 

» 

3.023 

1 

3.109 

1 

3,182 

1 

3,2*0 

I  1 

2.693  2.678 

1 

2.4*4 

1 

2,464 

1 

2.301 

1 

2,499 

1 

2.962 

1  1  1 
1,653  1,025  1,30) 

1.125 

• 

• 

•110490. 

1 

1.409 

1 

2.110 

2.3n« 

1 

2.302 

1 

2,452 

t  1 

2,564  2,321 

1 

2,071 

1 

1.421 

1 

1.942 

1 

1,596 

1 

1,511 

1 

1.525 

l 

1.649 

9,709  4,446  9,195  5,544 

• 

, 

•11**00. 

1 

1.45* 

1.990 

1.031 

J 

1.099 

1 

l.4r-4 

1 

1,856 

l 

1,043 

1 

1,460 

1 

1.346 

1 

1.139  9,916  9,171 

4.025  4,634 

5,540  4,293  3,6*9  2,43* 

• 

, 

•126400, 

1 

1.341 

1 

1,410 

1.442 

1 

1.443 

1 

1,494 

1 

1,313 

1 

1,107 

1 

1,0)6  0.554 

6.435 

5,933 

5,869 

5,15* 

2.695 

3,029  £,£6)  l.**l 

• 

• 

« 

•U9O00. 

1 

1.00) 

1 

t.lio 

1.142 

1 

1.10* 

1 

1.6*7  9.3 92 

8,390 

7.356 

5.495 

4,146 

3,430 

3,03* 

1,467 

1,465 

1,3£4  1,147  ,669 

• 

, 

• 

•1)0040. 

•.9*0 

9.441 

6.743 

6,051 

4,9*6 

3,627  2,655  2,021 

1.690 

•  646 

,933 

•9*9  ,561  • 

• 

• 

, 

•139000. 

4,924 

4.449  4.602 

4,499 

4.411 

4.094 

*•159 

l>t*T  1,1*1 

1.940 

1,293 

.♦45 

• 

,  •  , 

• 

• 

•  111***.  -1 20010.  •10*00*.  -***00.  -4*000.  •Tt*l*.  •*(***.  -«****.  •»••*,  -2*000. 
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Table  C-l 
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